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IDENTIFICATION 
PRODUCT CODE: AC-F 238B-MC 
PRODUCT NAME : CVKDABO PDT11/150 SYSTEM EXERCISER 
PRODUCT DATE: NOV 1978 
MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE “y: SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORP™RATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1978, 1979 BY DIGITAL EQUIPMENT CORPORATION 

"HE FCLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DE CUS DEC TAPE 
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GENERAL PROGRAM INFORMATION. 


PROGRAM PURPOSE (ABSTRACT). 


THE PDT-11/150 SYSTEM EXERCISER TESTS THE PROCESSORS ABILITY 
TO OPERATE ALL ITS PERIPHERALS IN INTERRUPT MODE AT THE SAME TIME 
WITH EMPHASIS ON THE DISK SUBSYSTEMS. 


IT ath BE NOTED THAT IT IS NOT A DIAGNOSTIC OF THE PERIPHERALS 
BUT A SERIES OF SYSTEM INTERACTION TESTS. 


THE PROGRAM IS DEFAULTED TO EXERCISE THE CLUSTER TERMINALS & THE 
COMM PORT IN INTERNAL LOOPBACK (MAINT) MOD 

THE DEFAULT CAN BE CHANGED 10. EXERCISE ANY OF THE CLUSTER TERMINALS 
AND/OR THE COMM PORT IN EXTERNAL LOOPBACK. 

SEE PROGRAM OPTIONS SEC. 2.4. 


TESTING OF THE ACTUAL CLUSTER TERMINALS OR COMM DEVICE IS NOT PERFORMED. 
THESE DEVICES CAN ONLY BE TESTED EITHER IN EXT. OR INT. LOOPBACK. 


THE PRINTER LOGIC WILL BE EXERCISED IF SIZING DETERMINES IT TO BE PRESENT 
OR IF DATA TERM RDY IS ASSERTED ON ITS CONNECTOR. 


THE CONSOLE TERMINAL IS NOT TESTED. 


AFTER THE MEMORY HAS BEEN TESTED & ALL THE PERIPHERALS ARE 
BEING EXERCISED & INTERRUPTING AT RANDOM, THE DISK SUBSYSTEM TESTS WILL BEGIN. 
SEE TEST SUMMARY SEC. 7.0. 


NOTE: IF RUNNING UNDER APT, THE SYNC COMM LOGIC WILL BE TESTED ONLY ON 
THE 1°ST PASS. THIS IS SO APT “BREAKS' SO NOT CAUSE FALSE SYNC COMM ERRORS. 


THE PROGRAM CONTAINS A UTILITY WHICH CAN COPY THE SYSTEM EXERCISER DISK 
FROM DXO ONTO A SCRATCH DISK IN DX1. 

THIS ENABLES THE OPERATOR TO CREATE BACKUP COPIES OF THE EXERCISER DISK. 
SEE SECTION 2.8. 


THE PROGRAM ALSO CONTAINS A COMPATABILITY TESTING OPTION. 
se SEC. 2.7% 
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SYSTEM REQUIREMENTS. 
HARDWARE REQUIREMENTS: 
PDT=11/150 SYSTEM 
8K ME 


MORY - MINIMUM 
CONSOLE TERMINAL 


EXTERNAL LOOPBACK CONNECTORS (OPTIONAL) FOR COMM & CLUSTER TERMINAL PORTS. 


(SEE PROGRAM OPTIONS SEC. 2.4) 
VT=100 CONSOLE MUST BE SETUP FOR JUMP SCROLL. 


SOF TWARE REQUIREMENTS: 


THIS EXERCISER :S DESIGNED TO RUN IN ANY OF THE FOLLOWING WAYS: 


STAND ALONE 
WITH APT MONITOR 
WITH RT-11 MONITOR 


IT IS NOT DESIGNED TO RUN WITH THE DIAGNOSTIC SUPERVISOR. 


RELATED DOCUMENTS AND STANDARDS. 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 175-003-009-02 
APT MD-11-DZZMA 
SYSMAC MD-11-DZQAC 


DIAGNOSTIC HIERARCHY PREREQUISITES 
THIS EXERCISER ASSUMES THAT THE POWER UP SELF TEST RUNS ERROR FREE. 


ASSUMPT IONS 


THIS tors By ASSUMES THAT THE OPERATOR HAS MODIFIED THE DEVICE MAP 
(SDEVM) AT LOC. 1246 IF THE DEFAULTS DO NOT AGREE WITH THE ACTUAL 
SYSTEM. CONFIGURATION. SEE PROGRAM OPTIONS SEC. 2.4. 

THE PROGRAM ALSO ASSUMES THE SOFTWARE SWITCH REGISTER IS 
PROPERLY SET UP (SWREG) AT LOC. 176. SEE SEC. 2.3. 


RUNNING SYSTEMS PROGRAMS 


UNLESS THE SYSTEMS PROGRAMS ARE KNOWN TO INWIJTIALIZE THE BAUD 
RATES OF EACH DEVICE THRU THE PARAMETER REGISTER 


THE OPERATOR SHOULD POWER DOWN & UP AGAIN WHEN FINISHED — THIS EXERCISER. 


THIS IS TO RESTORE THE PDT-11/150 TO ITS DEFAULT BAUD RAT 
OTHERWISE, THE DEVICES WILL ATTEMPT TO RUN AT WHATEVER BAUD RATES 
WERE LAST USED BY THIS EXERCISER. 


SEQ 0004 
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OPERATING INSTRUCTIONS. 
LOADING AND STARTING PROCEDURES. 


USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED PAPER TAPE. 
THE PROGRAM WILL AUTO-START AFTER LOADING. 


THE SYSTEM EXERCISER DISK WILL AUTO-START AFTER BOOTING. 


EXAMPLE OF STARTUP ASSUMING PRINTER NOT PRESENT, 24K MEMORY, 
& TERM #2 NOT TO BE TESTED, COMM PORT EXT. LOOPBACK, TERM 1 & 3 INT. LOOPBACK. 
(20007 IN $SDEVM, SEE SEC. 1.5): 


CVKDAB  PDT-11/150 SYSTEM EXERCISER 
= 000000 NEW = 110000 <CR> (HALT ON ERR, ENABLE PERFORMANCE REPORTS) 
DEVM = 000017 NEW = <CR> (KEEP DEFAULTS) 


24K MEMORY PRESENT 
PRINTER NOT PRESENT 
TERM #2 TESTING DROPPED 


INSERT SCRATCH DISKS, TYPE 'P' FOR NORMAL TESTING 
"240G* FOR NORMAL RESTARTS 

*250G* TO COPY SYS EXERCISER DISK 

*260G* FOR COMPATABLITIY PASS 1: WRITE 

"270G* FOR PASS 2: READ 


(PROGRAM HALTS & WAITS FOR 'P' & CONTINUES....ABOVE NOTE & HALT OMITTED UNDER APT) 
THE PROGRAM WILL BEGIN ACTUAL TESTING AT THIS POINT. (SEE SUMMARY OF TESTS SEC. 7.0) 
DURING THE TESTS, THE PROGRAM WILL PRINT PROGRESS REPORTS (SEE SEC. 4.1) IF 

BIT 12 IS SET IN THE SWREG (SEE SEC 2.3). 


END OF PASS & TOTAL ERROR COUNT IS PRINTED AT THE CONCLUSION OF TESTING. 
THE PROGRAM JUMPS TO THE BEGINNING & THE ABOVE SEQUENCE IS REPEATED UNTIL HALTED. 


SEQ 0005 


PDT=11 EXERCISER 
C 17-NOV-78 10:00 


VKDAB.P11 


2.2 


2.3 


G 
yo bh 306(1063) 17-NOV-78 10:00 PAGE 6 


SPECIAL ENVIRONMENTS. 


THIS DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 
UNDER APT, RT-11 MONITORS, AS DESCRIBED IN THEIR RESPECTIVE 
PROCEDURES MANUAL AND SYSMAC PACKAGE. 


OPERATIONAL SWITCH SETTINGS 


THIS PROGRAM SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE 
SWITCH REGISTER (SWREG AT LOC. 176) FROM THE CONSOLE. THIS CAN BE 
ACCOMPLISHED BY DOING THE FOLLOWING: 


1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE CONSOLE TO ENTER 
TE ales LOC. 176 AT SELECTED POINTS WITHIN THE 


2) THE MACHINE WILL THEN TYPE:* SWR=XXXXXX NEW=" (XXXXXX IS 
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE “*NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN DO 
ONE OF THE FOLLOWING AT THE CONSOLE: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY 
A_ <CR>. (ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED). 
LEADING ZEROS NEED NOT BE TYPED, AND IF MORE THAN 6 
DIGITS ARE TYPED THE LAST 6 WILL.BE USED. IF A <CR> 
IS_ THE FIRS! KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 


C) IF THE INPUT CHARACTER IS NOT ONE OF THE CHARACTERS 
MENTIONED ABOVE THEN A a ply MARK (?) WILL BE TYPED 
FOLLOWED BY A CARRAGE RETURN AND A LINE FEED SEQUENCE 
THEN PROCEED FROM STEP 3 (ERASING ALL PREVIOUS INPUT). 


4) THE DIAGNOSTIC WILL CONTINUE ON TYPING <CR>. 
SOFTWARE SWITCH REGISTER OPTIONS (SWREG) 


BIT 15 SET = 100000 = HALT ON ERROR 
13 SET = 20000 = INHIBIT ERROR TYPEOUTS 
12 SET = 10000 = ENABLE PERFORMANCE REPORTS 
10 SET = 2000 = BELL ON ERROR 


SEQ 0006 
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2.4 PROGRAM OPTIONS. 
A DEVICE MAP ($DEVM) AT LOCATION iE a (ENTERED BY A CONTROL-G & CONTROL-C) 
IS_ EXAMINED BY THE PROGRAM TO DETERMINE THE METHOD OF TESTING 
THE CLUSTER TERMINALS & THE COMM PORT. 


Yas DEFAULT VALUE = 000017 (INTERNAL LOOPBACK FOR COMM PORT & CLUSTER TERMINALS) 
IT CAN BE CHANGED TO DO THE FOLLOWING: 


SDEVM (LOC 1246) ENTERED BY CONTROL-G & C 


BIT 15 SET= 100000= DROP PRINTER TESTS 
4 SET= 40000= DROP CLUSTER TERM #3 TESTS 
13 SET= 0000= #2 
12 SET= 10000= #1 
11 SET= 4000= DROP ASYNC COMM TESTS 
10 SET= = DROP SYNC COMM TESTS 
9 SET= 1000= DROP DRIVE 1 TESTS 
8 SET= 400= DROP DRIVE O TESTS 
7 SET= 200= DROP CLOCK TESTS 
BIT 3 SET= 10= INT. LOOPBACK (MAINT MODE) FOR COMM PORT (DEFAULT) 
é@ SET= = INT. LOOPBACK (MAINT MODE) FOR TERM #1 (DEFAULT) 
1 SET= = INT. LOOPBACK (MAINT MODE) FOR Heo (DEFAULT) 
0 SET= = INT. LOOPBACK (MAINT MODE) FOR #3 (DEFAULT) 
BIT 3 CLR= EXT. LOOPBACK FOR COMM PORT. 
BIT 2 CLR= EXT. LOOPBACK FOR TERM #1. 
BIT 1 CLR= EXT. LOOPBACK FOR TERM #2. 
BIT O CLR= EXT. LOOPBACK FOR TERM #3. 
NOTES: 


1. THE CONSOLE IS NOT TESTED. 
2. BITS 15-7 SETTINGS WILL OVERRIDE BIT 3-0 SETTINGS. 


53. THE PRINTER LOGIC WILL BE TESTED IF BIT 15 = O & THE DATA TERM READY 
IS ASSERTED ON THE CONNECTOR. (A PHYSICAL PRINTER IS NOT REQ'D) 


4. A VT-50,52 MAY BE USED INSTEAD OF A PRINTER FOR A VISUAL CHECK. 
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EXECUTION TIMES. 


ASSUMING ALL DEVICES & 2 DISK SUBSYSTEMS PRESENT: 
1°ST PASS: 


25 = 30 SEC TO STARTUP Tog, PRINTER, COMM DEVICE & CLUSTER TERMINALS. 
5 ey TO WRITE, READ & DATA COMPARE ON TRACKS 0-4, 40-44, 72-76(10) ON BOTH DRIVES. 
- 60 SEC TO DO 10 RANDOM SEEKS ON EACH DISK BETWEEN 1°ST 5 TRACKS. 


SUBSEQUENT PASSES: 


30 SEC TO STARTUP CLOCK, PRINTER, COMM DEVICE & CLUSTER TERMINALS. 
20 MIN TO WRITE, READ & DATA COMPARE ALL TRACKS ON BOTH DISKS. 
5 MIN TO DO 500 RANDOM SEEKS ON EACH DISK BETWEEN ALL TRACKS. 


POWER FAIL 


THERE IS NO POWER FAIL AUTO-RESTART CAPABILITY IN THE PDT-11. 


COMPATABILTIY TESTING 


PASS 1: ENTERED FROM A ‘'260G' 
WILL WRITE ALL TRACKS & SECTORS ON SELECTED DRIVES 
& HALT AFTER AN OPERATOR PROMPT. TYPING 'P' WILL BEGIN PASS 2. 


PASS 2: ENTERED BY A ‘P* AFTER THE ABOVE HALT, OR A ‘270G' 
WILL PERFORM SEQUENTIAL & RANDOM READS ONLY, ON THE SELECTED DRIVES. 


COPY UTILITY 


TO PROVIDE BACKUP DISKS, A UTILITY IS PROVIDED IN THE PROGRAM TO COPY 
THE SYSTEM EXERCISER DISK FROM DXO TO DX1 IN THE FOLLOWING WAY: 


1. BOOT 3 EXERCISER NORMALLY FROM Dx0. 
2. ALLOW THE PROGRAM TO HALT AFTER THE WARNING MESSAGE TO USE SCRATCH DISKS. 
3. AT THIS POINT, DO A ‘250G* TO ENTER THE COPY UTILITY. 
4. THE OPERATOR WILL BE PROMPTED TO USE A SCRATCH DISK IN DX1 & TYPE 'P* TO PROCEED. 
5. WHEN COMPLETED, THERE WILL BE A VERIFYING MESSAGE. 
THE OPERATOR CAN THEN DO A ‘P* TO COPY ANOTHER IN THE SAME MANNER 
OR A '240G" TO BEGIN NORMAL TESTING. (OPERATOR WILL GE PROMPTED) - 
6. THE COPY UTILITY CAN BE ENTERED AT ANY TIME BY DOING A ‘BREAK & '250G'. 
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ERROR INFORMATION. 


TYPICAL ERROR PRINTOUTS ARE SHOWN BELOW: 
TERM #35 DATA COMP ERR 


ERROR # ERR PC EXPECT RECVD 

000011 006516 000200 000100 

DX1 SOFT ERR - DATA COMP 

DXTST # ERR PC RXCS RXES RXSA EXPECT RECVD # RETRIES 
000003 010636 100337 000230 003405 100520 100120 4 
DXO HARD ERR - adicer™ og CMD 

ERROR # DXTST # PC RXCS RXES TRACK SECTOR #RETRIES 
000016 000001 011246 100337 000230 59 18 10 


WHERE ALL VALUES TYPED ARE OCTAL EXCEPT : 
#RETRIES, TRACK, & SECTOR WHICH ARE IN DECIMAL. 


BITS 15,13, & 10 OF THE SWITCH REGISTER (SWREG) CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT. 


BIT 15 SET: CAUSES THE PROGRAM TO HALT IN THE ERROR ROUTINE. 
IF THE PROGRAM IS CONTINUED, IT WILL PROCEED 
FROM WHERE IT HALTED. 


BIT 15 SET: DISABLES THE PRINTING OF THE ERROR MESSAGE. 
BIT 10 SET: CAUSES THE BELL TO RING ON ERROR. 

THE ERROR ROUTINE SUPPORTS THE CONTROL G <*G> FUNCTION. 
REFER TO SECTION 2.3 FOR DETAILS. 


NOTE: SINCE THERE ARE NO SPECIFIC TEST NUMBERS, APT WILL 
REPORT ALL ERRORS AS TEST 0 ERRORS. 


ERROR HALTS. 


THE ONLY HALT IN THE EXERCISER IS IN THE ERROR ROUTINE, AND 
IS EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER (SWREG) IS SET 
WHEN AN ERROR OCCURS. 
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PROGRESS & PERFORMANCE REPORTS 


THE FOLLOWING REPORTS ARE ENABLED BIT i2 SET IN THE SWITCH REGISTER (SWREG LOC 176) 


& WILL_APPEAR FOLLOWING LOADING & S 


TARTING AS DESCR 


E 
IN SECTION 2.1 (ASSUMING ALL DEVICES ARE TO BE TESTED & NO ERRORS): 


MEM TESTS DONE 
CLOCK RUNNING 


PRINTER RUNNING 
SYNC COMM DONE 
ASYNC COMM RUNNING 
TERM #1 RUNNING 


TERM #2 RUNNING 
TERM #3 RUNNING 


DxXO TRK ; DONE 
DxXO TRK DONE 
DXO DATA PATT CONE 
DX1 DATA PATT DONE 
DXO RANDOM SEEKS DONE 
DX1 RANDOM SEEKS DONE 
END OF PASS #) 


(ALL MEMORY FROM LOCATION 0 TO THE BEGINNING OF THE 
MONITOR/ABS LOADER HAS BEEN TESTED. 


(100_INTERRUPTS HAVE BEEN DETECTED BEFORE EXERCISING THE NEXT DEVICE. 
THE CLOCK CONTINUES RUNNING IN INTERRUPT MODE.) 


(5 LINES HAVE BEEN PRINTED WITH ERROR BIT CHECKING ONLY. 

THE PRINTER RUNS dl a ae gh IN INTERRUPT MODE AT 9600 BA 

ITS ACTUAL PERFORMANCE IS A VISUAL CHECK IF PRINTER CONNECTED. 
NO OTHER CHECKING PERFORMED IF EXTERNAL LOOPBACK USED. 


(CHARACTERS 0 THRU 377 HAVE BEEN TRANSMITTED & RECEIVED WITH ODD PARITY ENABLED. 
INTERRUPTS ARE THEN DISABLED & THE SYNC COMM IS NO LONGER EXERCISED. 

THIS IS SO THAT THE ASYNC COMM CAN BE EXERCISED 

FOR THE DURATION OF THE PASS.) 


(CHARS 0 THRU 377 HAVE BEEN TRANSMITTED & RECEIVED BEFORE 
EXERCISING THE NEXT DEVICE. 

IT CONTINUES RUNNING IN INTERRUPT MODE AT 9600 BAUD 
WITH ODD PARITY ENABLED & REPEATS THE 0 THRU 377 CYCLE) 


(CHARACTERS 0 THRU 377 HAVE BEEN “eat aevite 

& RECEIVED BEFORE EXERXCISING THE NEXT DEVI 

THE TERMINAL KEEPS RUNNING CONTINUOUSLY AT 5400 BAUD 
IN INTERRUPT MODE & REPEATS THE 0 THRU 377 CYCLE) 


(SAME AS #1) 
(SAME AS #1) 


(DRIVE 0, TRACK 0 IS WRITTEN WITH A DATA PATTERN, READ & DATA COMPARE PERFORMED) 
at be 1, TRACK 0 IS WRITTEN WITH A DATA PATTERN, READ & DATA COMPARE PERFORMED) 
(ETC UNTIL.. 

(ALL TRACKS HAVE BEEN WRITTEN WITH A DATA PATTERN IN INTERRUPT MODE.) 

(SAME AS Dx0) 


(FOR 1°ST PASS TRACKS 0-4, 40-44, 72-76(10) DONE ONLY.) 
(500 RANDOM =a WITH READ & DATA COMPARE HAVE BEEN PERFORMED ON DRIVE 0 ) 


(SAME AS DX0....10 RANDOM SEEKS ONLY FOR 1°ST PASS QUICK VERIFY) 
TOTAL ERRORS: 0 
TOTAL SOFT ERRORS: 0 


TOTAL ERRORS THIS PASS: 0 


SOFT ERRORS THIS PASS: 0 (...& ENTIRE PROCESS REPEATS) 


SEQ 0010 
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5.0 DEVICE REGISTERS. 


PARAMETER REGISTER: 
= oe wa: ee" oe 9 8 7 6 5 4 3 2 1 0 


BOI ISIOIS SISSIES IOISIUIIIOIIIOIOIOIIOISIIIOIUIIDIOIOIOIUIOISISIIIOIIOIDIOIICISIOIOIIIIOIIOIOIIOIOIIOII 
; PORT BAUD ! USR! USR!PAR !PAR ! CHAR ‘MAIN. ! 177420 (WR ONLY) 
SELECT . RATE ' LT2! LTT!TYP 'EN ! LENGTH ! 
shalelolobolalalababetctotototatabalabatetelototoloiolatatetotetotolebrialalatetetoicioiaiaiaistoteleioieiaiaishtoteloleieiaiiat taleioieloiaiaiaiioioeioioie 


LINE CLOCK: VECTOR: 100 
7 - cee ee. Oe 9 8 7 6 5 4% 3 2 1 0 


ARRAS AAAARERAARARARARARARARARARAAARALARSAAASESAL SAAR R ASAE SASS SES ESSER SRS SSE SS EES SS 
! ! ! ' ' ! ! ! ! 'CLK ' ! ' ! ! ! ! 177546 
‘ ! ! ! ! ! J ' ' 'IE r ! ! ! ! ! y 
sialalaiabaotelotoleteteieleleheteirtalaiaiaieleialebeetoieioieirioisioiaiohiaiaiaiaiaiahieieioiebiotoioieiaisiaisisiniatiaiaiaiaiaieielebeioioieiaiote 

' ! i ! 


CONSOLE : ADDR: 177560-177566 VECTOR: 60/64 

CLUSTER #1: 176500176506 300/304 
He: 176510176516 3107314 
#3: 176520176526 320/324 


— = wa ee” we 9 8 7 6 5 & 3 2 1 0 


AP ee eee REESERRARASARLASEASAAAARASASAASES ALES SS ESSERE SESE SRR RR SSSR SSS SSS SRE S SR SSS 


on: Wend Chet SE et Fe es ae ea ST ae ae ree sees eer ie 
We BN Bi (om ih Bhar ee 2) ae ee eed Be Bid ee Sh 

TT TET TET E TCL ELT ETL CCT T TUT TUTE TCU CRTC TUT CCU TCU CTT Te 
oe Ce oe ee ee ee ee ee eee KB DATA BUFFER ! 
! ! ! ! ! ! ! ! ' 

ASSES FR MEd BER PROS SSS RA Sete SY 5G EO RAT a 
dg Se CE BS Se ee Dies ee eee cy ee ae et et ee ee 
‘le ele We tk ee ee Se Se ee ies “ee ye 

Se eRAHEEEEEEEEERERRERERERAERERRERE ERE EAEERERERE EER ERERRERESRERRRRERERERER EERE 
a, Ce Ce Bae See Ge See eee ee PRINTER DATA BUFFER ! 


. (WRITE ONLY) 
<SAAARRERAAA EEE REAAE ERE EEEEASRAEEEEAARRERERERRRERE EERE RERER RRR R ERE ERE R ERE EH 
! i ! ! 
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CVK 
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7-NOV-78 1 


PRINTER: VECTOR: 200 


ip. 22. cee a ee 9 8 7 6 5 4 3 2 1 

RRR ERREREEEERREEEREEEEEEE ERE 
PRS! ERR ‘PRIN! PRIN! 
! i i i i iRDY ‘IE |! i i i i i i 
slalaloelrhalalabeelehebalabieleteheiriabeloleiielaielebieieialab ieee leleieieisisaieioioled tteerteabtigichitiigiabiaiaieleiaiar 
PRB - ; ; : a PRINTER DATA BUFFER 
. ; 3 (WRITE ONLY) 

Hone ee RRR A NARA EAHA EERE REERERRRRRRREAEEREREREREERERERER RARE ERE EERE ERE R EERE RR EE 


ASYNC MODEM: VECTOR: 


aS +: 8 PM: Bw eS Pog 5 4 ae 1 0 

\AARASAAASAAALALAAALALAAASLASSESESSESS ESSERE SERS SESE SSE SESSLER EE CEALESCALALACALALALALACALALALALLSE & 
RCSR! DSI!RING! CTS! CAR! ' SEC!DSET! IRCVR!IRCVR!DSET! ' SEC! RTS! DIR! 
' DET! ' REC! RDY! 'DONE'IE ‘IE ! iXMIT! 

LAA SBASRASAAAALASARASAAARARRASASASALSSESELSESES ESE SESS ESSE EASE SLE SE ELELLLAALASCLASCLALLLAL ES & 
RBUF' ERR'OR ‘FR '!PAR ! ; : : : RECEIVER DATA BUFFER : 
'ERR 'ERR 'ERR ! 
slalalalebielelehelrtaiaialabrioieleleleieheiahabeialaleleliololoieirieiaialabioielei-iieietttriiaieieioioloieyisiaiiahtoioloieiioioiatatoior 
XCSR! ! ' 'XMIT!XMIT! ! ! (BRK ! 
IRDY 'IE ! 

FEES ONS Sake eat FR SUE AMPS PE nn OE! at ae i, Ree Sen Saree, SO 
XBUF ! ! , ! TRANSMITTER DATA BUFFER 
(WRITE ONLY) 


CCRReSREeReeeRetnedeeteeteneetneAnenaeeadnaneneeneeereneneeneaeeareneazenenannes 
! ' ! ! i 


SYNC MODEM: VECTOR: 


ao  ~m %: t- 10 9 8 7 6 5 4 5 2 1 0 
TRAE AAR RAAT ARERR REE AEE REE EERE RRR EEE RRR RRERE ERR 
RCSR: DSC: RING. CTS! CAR!IREC ! SEC; DSET STRP- RCVR«RCVR'DSET : SRCH: SEC. RTS. DIR: : 
: DETIACT ! REC! RDY!SYNC!DONE'IE ‘IE !SYNC!XMIT! . 


censecennntanenanesnattineenasansauunaaeaneanaanetanettonrntcanntenenencennneennn 


RBUF! ERR'OR ! '!PAR! !$ $$ 8 | RECEIVER DATA BUFFER ! 
wee De Bee es BE ES | 
CHRAREREHEREEAAERREREREREEEHEREREREREREREREREERERREREAERERRERRARREERREREEREERE RED 

PCSR! SYNC!!! WORD !PAR EVEN! SYNC REG 1 

CHAR! =| =} LENGTH ‘IE PAR i 
COHHERAREEREREEREREREEERERERERERRERERRERERERRARERREREREEERREREARERERERREAeeererer 
KCSR!DNA ! {IMA MA ft IMASTEMMIT!XMIT!DNA !SEND!H/F $0 $00 1! 
> = wepelaga $ > § inst jepe ig tee ft ligt te 
Ceeeeeeenccennerennaatnetaeeaeeaneenacennenentnas KkRERRERERERERERRRR ERR RRR 
conc Ce ee See ee ee Se Ges ee TRANSMITTER DATA BUFFER 1 


: : . : (WRITE ONLY) . 
TAAAARCRGAREAAEEAEESEAESSEEASEEEAEEREREERESEREEEEEERESEERERREREREEREER REET EEE ES 
' ' 


177514 


177516 


330/334 


176610 


176612 


176614 


176616 


340/344 © 


176620 


176622 (RD ONLY) 


176622 (WR ONLY) 


176624 


176626 


SEQ 0012 
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CVKDAB.P11 —-17-NOV=78 10:00 | SEQ 0013 


DISK: VECTOR: 264 
~~ -_33 fe: 10 9 8 7 6 5 4 3 2 1 0 


ARR RRRSRRARARRRRRRRERSASARARRRRRRRRRRRRRRARARARARARARARARRARRARRRRARRRRRRSRA RES SASS R SEES SS 


mcsam: of tr kt 8 EN ot Net: Oumctign 1 @} SFr 
Sed fee ere Bs bee ee ee id We eee ee ee 
CHARA RRRRREREEEREREREEEEREERERRERERERRERR EERE RER EERE 
RXDB | DATA BUFFER) | 177172 
Cee ORR ERR EEE EEE EEREERAEEREEEREREREEREREREREREEREEERERERERR RRR RRR RRR 
nis ek ee ee ee ee oe oe oon ee Te ae ee oe 
ae ek eee ae, Bee ee SR ee. | a ee ee 
CHREHEREEER EERE EEEREREEEREERRRRERERREEREEREEREREREERERRETERRERRERERRARERERE EERE 
RXSA! | TRACK QO = 114(8) 2 Se Par SECTOR 1 = 32(8) ! 177176 


i 
SPHeeeeeeeeeeeeeaeeetaRHRARaRERREARKRERAREARARERAREARERERAERAREAEHEARAREAARRARER RE ERKRESE 
i ! ' | 


6.0 DEVICE CONNECTOR cc 


SRSA AARAERARAETAAEAAREEAEREREHEREERERERRRAHEHERERKEEEREE 


o a & 
CLUSTER TERMINAL S43 COMM PORT 
PORT arg 
o a” ® e 
MRL AT) TY Ee EMRE a me 
©” je . © 
CLUSTER TERMINAL #2 PRINTER PORT 
PORT 
o o + 
SARAH EEAAREHEREEEEERHEHERERERAREREERREREEEHEREEREREESE 
‘LUSTER TERMINAL #7 CONSOLE PORT 
PORT 


eeeeneaeaeaeee eee ee ee eee eeeneeeeeeeeeeeeeeaaeaeaeaeeneeneeaeeneee ee 


Aa XERC 


T-11 E 
VKDAB.P11 


7.0 


B 2 
CISER MACY11 30G(1063) 17-NOV-78 10:00 PAGE 14 
17-NOV-78 10:00 


SUMMARY OF TESTS (SEE PROGRAM LISTING FOR ADDT'L DETAILS ON SPECIFIC TESTS) 


PHASE 1 
MEMORY TESTS A. LOC 0 THRU END OF PROGRAM A TESTED FOR TIMEOUT. 
B. END OF PROGRAM TO BOTTOM ton Pat Tent ABS LOADER 
IS TESTED WITH A 1010 & 0101 PATT 
. IF 28K PRESENT, MEMORY FROM 28k 16 NOK IS SIMILARLY TESTED. 


ALL AVAILABLE PERIPHERALS ARE EXERCISED CONTINUOUSLY IN INTERRUPT MODE. 


SEE SECTION 2.4 FOR DETAILS OF SETTING UP THE DEVICE MAP (S$DEVM) FOR DEVICE TO BE TESTED. 
SEE SECTION 4.1 FOR DETAILS ON PROGRESS REPORTS. 


START LINE CLOCK INTERRUPTS ARE DETECTED. 
START PRINTER CONTINUOUS LINES ARE PRINTED. 
START SYNC COMM PORT CHARS 27 THRU 377 ** “"* ‘* 1 PASS ONLY 
START ASYNC COMM PORT CHARS 0 THRU 377 TESTED CONT INUOUSL Y 
START CLUSTER TERMINAL 41 CHARS 0 THRU 377 ARE XMITTED, REC'D iF TESTED. 
START CLUSTER TERMINAL #2 SAME 
START CLUSTER TERMINAL #3 SAME 
PHASE 3 


WHILE THE ABOVE DEVICES ARE INTERRUPTING RANDOMLY, DISK SUBSYSTEM TESTS BEGIN: 
FILL & EMPTY BUFFER TESTS ARE PERFORMED TO VERIFY THAT NO 
CABLE CROSS-TALK PROBLEMS EXIST BEFORE BEGINNING ACTUAL 
DATA TRANSFERS TO THE DISK SURFACE. 


DXO & DX1 DATA PATTERN: WRITE, READ & DATA COMPARE 1'°ST 10 TRACKS ON 1°‘ST PASS. 
ALL TRACKS ON SUBSEQUENT PASSES. 


DXO & DX1 RANDOM SEEKS: READ & DATA COMPARE. 
20 SEEKS ON 1°ST 10 TRACKS ON 1°‘ST PASS. 
500 SEEKS ON ALL TRACKS ON SUBSEQUENT PASSES. 


DXO INITIALIZE, RESTORE, WRITE DELETED DATA, READ STATUS, & INVALID ADDRESS TESTS. 


NOTE: 


1. RECOVERY IS PERFORMED (RESTORE COMMAND) AFTER ANY RNF ERROR ON WRITE OR READ. 
2. DATA IS TESTED AFTER A HARD CRC ERROR ON A READ TO TEST WHETHER DATA CRC ERROR OR CRC ERROR. 


SEQ 0014 


PDT=11 1 gaat 5 
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17-NOV-78 


001100 


0 
177776 
177774 


ee 
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10:00 


SEQ 0015 


- TITLE ot tr “a 
1978 


>*COPYRIGHT ( 


>*DIGITAL EQUIPMENT CORP. 
; #MA YNARD , 


MASS. 01754 
 SPROGRAM BY GARY PAPAZIAN 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s SPACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


~SBTTL OPERATIONAL SWITCH SETTINGS 


: SWITCH 
; 15 
; 13 
; 12 
; 10 


USE 

HALT ON ERROR 

INHIBIT ERROR TYPEOUTS 
ENABLE PERFORMANCE REPORTS 
BELL ON ERROR 


-SBTTL BASIC DEFINITIONS 


STAC 


-EQUIV EMT,ERROR 
-EQUIV IOT.SCOPE 


ee DEFINITIONS 


LF= 12 

CR= 15 
CRLF= 

PS= 177776 


DDISP= 177570 


cu hae OF THE STACK POINTER *** 1100 *** 


:sBASIC DEFINITION OF ERROR CALL 
;sBASIC DEFINITION OF SCOPE CALL 


;sCODE FOR HORIZONTAL TAB 


E RETURN 
:CODE FOR CARRIAGE RETURN-LINE FEED 
: PROCESSOR STATUS WORD 


;sSTACK LIMIT REGISTER 

; s PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 

; HARDWARE DISPLAY REGISTER 


; *GENERAL PURPOSE REGISTER DEF INITIONS 
RO= 40 NERAL 


R1= hl 
R2= he 
R35= 43 
R4= aS 
R5= %5 
R6= 26 
R7= 47 
SP= 26 
PC= 47 


: GENERAL REGISTER 
; GENERAL REGISTER 
;;GENERAL REGISTER 
; GENERAL REGISTER 
;;STACK POINTER 

; PROGRAM COUNTER 


:*PRIORITY LEVEL DEFINITIONS 


D 2 
eg EXERCISER MACY11 30G(1063) 17-NOV-78 10:00 PAGE 16 


VKDAB .P11 17-NOV-78 10:00 BASIC DEFINITIONS SEQ 0016 
725 000000 PRO= 0 :;PRIORITY LEVEL 0 
726 000040 PR1= 40 ;zPRIORITY LEVEL 1 
727 000100 PR2= 100 ::PRIORITY LEVEL 2 
728 000140 PR3= 140 3z;PRIORITY LEVEL 3 
0002 PR4= 200 sz;PRIORITY LEVEL 4 
730 000240 PR5= 240 3;PRIORITY LEVEL 5 
731 000300 PR6= 300 : PRIORITY LEVEL $ 
a4 000340 PR7= 340 : PRIORITY LEVEL 7 
734 3*' "SWITCH REGISTER’’ SWITCH DEFINITIONS 
735 SW15= 100000 
736 0000 SW14= 4 
737 020000 SW1i3= 20000 
010000 SWi2= 10000 .« 
739 000 Swil= 4 
740 2000 SW10= 2000 
741 007000 SwO9= 10 
742 00 SWO8= 400 
743 000200 SwO7= 200 
744 000100 SWO6= 100 
745 0 SWOS= 4 
746 000020 SWO4= 20 
747 000010 SwO3= 10 
748 000004 SWO2= 
749 000002 SWwO1= 2 
750 000001 2 7 
751 -EQUIV SW09,SwW9 
752 EQUIV SwW08,Sw8 
753 -EQUIV SWO7,SW7 
754 -EQUIV §S 
755 -EQUIV SWO5,SW5 
756 -EQUIV ° 
757 -EQUIV SWO3,SW3 
758 EQUIV SwWw02,SW2 
759 -EQUIV SWO1,SwW1 
A -EQUIV SWO00,SWO 
762 7*DATA BIT DEFINITIONS (BITOO TO BIT15) 
763 100000 BIT15= 
764 040000 BIT14= 40000 
765 020000 BIT13= 20000 
7 010000 BIT12= 10000 
767 000 BIT11= 
768 002000 BIT10= 2000 
769 001000 BITO9= 1000 
770 00 BITO8= 400 
771 000200 BITO7= 200 
772 000100 BITO06= 100 
773 000040 BITOS= 
000020 BITO04= 20 
775 000010 BITO3= 10 
009004 BITO2= 4 
777 000002 BITO1= 


PDT=11 1 patie 
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000200 
000100 


000330 
000334 


000340 
000344 


ca 
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BASIC DEFINITIONS 


-EQUIV BITO/,BI1T7 
-EQUIV BIT06,21T6 


-EQUIV BIT01,BIT1 
-EQUIV BITOO.BITO 


Laavete ““CPU'' TRAP VECTOR Ta ar 


ERRVEC= 4 TIME OUT AND OTHER ERRORS 

RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 33° T' BIT 

TRTIVEC= 14 ;; TRACE TRAP 

BPTVEC= 14 ; sBREAKPOINT TRAP (BPT) 

IOTVEC= 20 oe tae TRAP (IOT) **SCOPE** 
PWRVEC= 24 ;sPOWER FAIL 

EMTVEC= 30 ; s EMULATOR TRAP (EMT) **ERROR** 
TRAPVE C=34 ;‘ ‘TRAP’ TRAP 

TKVEC= 60 se TTY KEYBOARD VECTOR 


;TTY PRINTER VECTOR 


PIRQVEC=240 ; PROGRAM INTERRUPT REQUEST VECTOR 


5 REE REE EKER KEEKEEKEKEEEEREREEEEKEKEEKEKEKEEKEKKEEEEKEEEKE 


:* PDT-11/150 DEVICE VECTORS 
FERRER KEE KEE ERE KKEEKREKEEKEEKEKEKEEEKEKEKEKEKEKEEEKEEEEEE 

PRVEC= 200 PRINTER 

CLKVEC= 100 sLINE CLOCK 

AMRVEC= 330 ;ASYNC MODEM RECVR 

AMXVEC= 334 : XMITR 

SMRVEC= 340 ;SYNC MODEM RECVR 

SMXVEC= 344 : XMITR 

RXVEC= 264 :DISK 

TKIVEC= 300 sCLUSTER TERM #41 VECTORS 

TPIVEC= 304 

TK2VEC= 310 : #2 

TP2VEC= 214 

TK3VEC= 320 : #3 

TP3VEC= 324 


SEQ 0017 


PDT-11 EXERCISER 
17-NOV-78 10:00 


CVKDAB.P11 


829 
839 
831 
83 


177420 
177546 


177514 
177516 


176510 
176512 
176514 
176516 


176520 


rs 
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BASIC DEFINITIONS 


fF ERE EEEEEEEEREKEEKEEEKERRRKEEEKEEEEEEERKEEEKEEKEKEKE 


PDT=11/150 DEVICE REGISTERS 


5 FERRARA RARER REREKEKEKKEKEREEKREEEREEKEEEEEEKERERKEEKEKEEKEE 


;PARAMETER REGISTER 


PARAM= 


177420 
177546 


177514 
177516 


176616 
176620 


176626 


177170 
177172 
177172 
177174 


176500 


sLINE CLOCK 


sPRINTER STATUS REG 
; BUFFER 


sASYNC MODEM RECVR STATUS REG 
BUFFER 


XMITR STATUS REG 
BUFFER 


>SYNC MODEM RECVR STATUS REG 
; BUFFER 


; PARAMETER REG 

; XMITR STATUS REG 
; BUFFER 
;DISK CSR 

; DATA BUFF 

; ERROR & STATUS REG 

: TRK & SECTOR ADDR REG 


;CLUSTER TERMINAL #1 


#2 


43 


(WRITE ONLY) 


(WRITE ONLY) 


(WRITE ONLY) 


(READ ONLY) 
(WRITE ONLY) 


(WRITE ONLY) 


SEQ 0018 


G 2 
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VKDAB.P11 17-NOV-78 10:00 BASIC DEFINITIONS SEQ 0019 
ia > : 'MmeeOABAAASASA2ASALALALALSAAAAELAELALSEL ESE SESS SESSA CPE RRR ER REESE SESSA ASS 
873 :* PARAMETER REGISTER EQUATES WRITE ONLY 
874 . ; 'MmARAAASASAASAALAASAALASAALALESLSL SESE SS SES CSCC RCP EERE RCC EEC ESL SLES SS 
875 
876 :BIT 14-12 PORT SELECT 
878 010000 CONSOL= 10000 ;SELECT CONSOLE TERMINAL 
879 0 (Tl= 0 CLUSTER TERMINAL #1 

050000 (T2= 50000 : #2 
881 0000 (T3= 6 : #3 
882 020000 PRT= 000 : PRINTER PORT 
883 030000 AMOD= 30000 : ASYNC COMM PORT 
884 040000 ULITE= 4 : USER LIGHTS 
886 :-BIT 11-8 BAUD RATE (DELTA = 400) 
RBS 000000 B50= 0 -50 BAUD 
889 000400 B75= 400 :75 
001000 B110= 1000 =110 
891 001400 Bi34= 1400 7134.5 
892 2 B150= 2000 : 
893 002400 B300= 2400 : 300 
3 B600= 3000 :600 
895 003400 B1200= 3400 = 1200 
B1800= 4000 = 1800 
897 004400 B2000= 4400 *20 
898 005000 B2400= 5000 -2400 (CLUSTER DEFAULT) 
899 005400 B3600= 5400 : 3600 
900 006600 B4800= 6000 -4800 
901 006400 B7200= 6400 -7200 
902 007000 B9600= 7000 -9600 (PRINTER & ASYNC DEFAULT) 
903 007400 B19200= 7400 > 19200 
905 :IF 110 BAUD SELECTED, 2 STOP BITS ARE ASSUMED. 
907 :BITS 4-5 PARITY CONTROL 
909 000060 EPAR= 60 :EVEN PARITY ENABLE 
310 000020 OPAR= 20 “ODD PARITY ENABLE (DEFAULT) 
a2 :BITS 3-2 CHARACTER LENGIH (DELTA = 4) 
914 000000 CHARS= 0 -5 BITS/CHAR 
915 000004 CHAR6= 4 :6 
916 000010 CHAR7= 10 :7 
17 000014 CHARB= 14 =8 (PRINTER, TERMINAL .MODEM DEFAULT) 
Son :BIT 1 MAINTENANC? BiT 
921 600002 MAINT= BIT1 :ENABLE MAINT MODE 
922 “PRINTER & DISK DO NOT HAVE MAINT MODE 
924 
925 


926 STR E REE REE RR KERR REE ERR ERK EE 


PDT=11 2 ae 
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000200 
000100 
000601 


rad A, 306(1063) 
10:00 


H 2 
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BASIC DEFINITIONS 
ASYNC MODEM BIT DEFINITIONS 


FT EERE KEEEEEEKKKKEKKEEEEREREEKEEKEEEREEEEKEKEKEEEKE 


% 


RING SET INTERRUPT 


I 
;CLEAR TO SEND 
: CARRIER DETECTED 
> SECONDARY RECD/SUPERVISORY RECD 
:DATA SET RDY 
:RE ONE 


sDATA SET IE 

; SECONDARY XMIT/SUPERV XMIT 
TO SEND 

;DATA TERMINAL RDY 


=REQ 


s ERROR 

; OVERRUN ERROR 
;FRAMING ERROR 
s;PARITY ERROR 


;XMIT RDY 


:XMIT IE 


; BREAK 


SEQ 0020 


PDT=11 EXERCISER 
CVKDAB.P11 


958 
959 


17-NOV~-78 


rap OA 30G(1063) 17-NOV-78 10:00 PAGE b,¢ 


BASIC DEFINITIONS 


IIIS III IIIS IIOI III III III III ti ttk 


SYNC MODEM BIT DEFINITIONS 


MASS AAALAAESAAEEELALARAAAASLALASESSALELELES SSSA SESE SESE SESS SEE SS 


:RCSR 
DSC=  —-BIT15 :DATA SET CHANGE 

RING= BIT14 “RIN 

CTS= _—«BIT13 CLEAR TO SEND 

CDET= BITI2 “CARRIER DETECTED 

RACT= BIT11 sRECVR ACTIVE (SYNC DETECT) 
SREC=  BIT10 = SECONDARY RECD/SUPERVISORY RECD 
DSRDY= BIT9 “DATA SET RDY 

STSYN= BITS -STRIP SYNC 

DONE= BIT7 *RECVR DONE 

IE= BIT6 =RECVR IE 

DSIE= BITS =DATA SET IE 

SRSYN= BITS *SEARCH SYNC 

SXMIT= BIT3 : SECONDARY XMIT/SUPERV XMIT 
RIS= _— BIT2 “REQ TO SEND 

DIR= _—«BIT1 =DATA TERMINAL RDY 

; RBUF 

ERR= _—«BIT15 : ERROR 

ORERR= BIT14 “OVERRUN ERROR 

PARERR= BIT12 “PARITY ERROR 

:PARCSR PARAMETER CONT REG 

“BIT 14 SYNC CHAR 

SYNC2= 0 :2 SYNC CHARS (DEFAULT) 
SYNC 1= BIT14 ° 

:BITS 10-11 WORD LENGTH 

CHRS= 0 -5 BITS/CHAR 

CHR6= £2000 36 

CHR7= 4000 rT 4 

CHR8= 6000 *8 (DEFAULT) 

:RBITS 8-9 PARITY CONTROL 

ENVPAR= 1400 sENABLE EVEN PARITY 

ODDPAR= 1000 *ENABLE ODD PARITY (DEFAULT) 
:XCSR 

DNA= _—siBIIT15 =DATA NOT AVAIL 

MM = BIT12 “MAINT MODE 

MCLK= BIT11 “MAINT CLOCK 

MR= BIT8 :MASTER RESET 

RDY=  ~— BIT? XMIT RDY 

IE= BIT6 “MIT IE 


SEQ 0021 


2 
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17=NOV-78 10:00 BASIC DEFINITIONS : SEQ 0022 
000040 DNAIE= BITS :DATA NOT AVAIL IE | 
000020 SEND= BIT4 SEN 
000010 HFDUP= BIT3 :1=HALF DUPLEX, O=FULL DUPLEX (DEFAULT = 0 FOR TESTS) 


RRR RKEEKKEREAEREKEAEARAKEREREAEKEKAKEKEEKEEEAEAREARAKEEEERRERAEREREEEKEKE 


“DISK BIT DEFINITIONS 


ST ARR RR RAE REREKEEREEEREREEKEEREEEEEKREKEKEERREEE 


sRxCS 
100000 ERR= BIT15 ; ERROR 
000200 DONE= BIT7 ;CONTR RDY 
900100 IE= BIT6 sDRIVE IE 
000020 DxX1= BIT4 sUNIT SELECT: O=Dx0, 1=Dx1 
000020 USEL= BIT4 sUNIT SELECT 


sFUNCTIONS (INCLUDES BITO = GO) 


000001 FRUF= 1 ;FILL BUFFER 

3 EBUF= 3 :EMPTY BUFFER 
000005 wSec= 5 “WRITE SECTOR 
000007 RSEC= 7 :READ SECTOR 
000011 INITAL= 11 : INITIALIZE 
000013 RSTAT= 13 :READ STATUS 
000015 WDDSEC= 15 “WRITE DELETED DATA SECTOR 
000017 RESTOR= 17 “RESTORE TO TRACK 0 

;RXES: ERROR & STATUS 

000200 RDY= — BIT7 :DRIVE RDY 
000040 DD= BIT5 :DELETED DATA DET. 
000020 RNF= —- BIT4 =RECORD NOT FOUND 
000010 CRC= = BIT3 =CRC ERROR 
000004 LDATA= BIT2 :LOST DATA 
000002 INVADR= BIT1 : INVALID ADDR 


000001 ID= BITO ; INITIALIZE DONE 


PDT=11 EXERCISER 
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© 
VI 
Oo 


SSESFEFERES 


333 


S8888ss 


000174 
000176 


000100 
000102 


000200 


000240 


000250 
000260 
000270 


000044 


mee ee eed eed ed os) = 


MACY11 30G6(1063) 
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003174 


003174 


003156 
0031 56 
003144 


K_ 2 
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BASIC DEFINITIONS SEQ 0023 


mASAAAASASALASLALAALAAARASALAAA AALS ASESESAAA SALAS ES EAS SESS L SL SS SE 


i SWITCH REGISTER 


SEERA EEKKKKKKKKEAKKEEKAAKEKEKKKEKEEKKEEREKEKEKKKKKK 


-=174 
DISPREG: _— -WORD 0 ; SOFTWARE DISPLAY REG 


SWREG: . 0 “SOFTWARE SWITCH REG 
.=100 
i02 :SETUP CLOCK VECTOR AREA TO DO RTI 
2 IF ENABLED 
MP START :USE ONLY ONCE. WILL BE OVERLAID BY 
“PRINTER VECTOR ADDR. 
MP START :RESTART ADDR 


sENTER HERE FOR COPY UTILITY 
; COMPATABILTIY PASS 1 
PASS 2 


.= 1000 
-SBTTL APT PARAMETER BLOCK 


SEERA AAA AAAAAAAEEAEEKEEEEEKEREKEEKKKEKEKKKKEEKKKKEEKKEKEKEKEEEKEKREKREEKKKE 


“Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
SI III II III III IIUIUIOUIOIUIOIIIIIIUIIUIO I Ti tok 
;zSAVE CURRENT LOCATION 
.=24 eS 4 os ha TO POINT TO START OF PROGRAM 
260 :zFOR APT START UP 
=44 : POINT TO APT INDIRECT ADDRESS PNTR. 
;POINT TO APT HEADER BLOCK 
.=.$X  ::RESET LOCATION COUNTER 

RAEI III III IIIT IOI IIIIIIIIUIUIUIIIUIUI I ik kik tt 
: SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


SAPTHD: 

SHIBTS: .WORD 0 TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: .WORD S$MAIL :ZADDRESS OF APT MAILBOX (BITS 0-15) 

STSTM: .WORD 20. ;;RUN TIM OF LONGEST TEST 

SPASTM: .WORD 150. Bs RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
SUNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


WORD $ETEND-SMAIL/2 ; LENGTH MAILBOX~E TABLE (WORDS) 


3 
4, 


oO 

om 
+ pe 
—TTi 


NONININONONONO Ny 3 Ss SS SS es 


IS SHIFT ALANIS SSUES HERG LESRLRAGRANSSVSVRGRAVLSSHRVSARWVISSRIE 


2 
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17-NOV-78 10:00 COMMON TAGS 


-SBTTL COMMON TAGS 


FT ARR RERAEERAKKERKKEEKEEEEEKKKEKEKEKEKEKEKEKEKEKEEEKEEKEKEEEKEKKEEKEEKEKKE 


:>*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


SEQ 0024 


001100 .=1100 
B51 10e SCMTAG: 0 ;2;START OF COMMON TAGS 
001102 000 STSTNM: .BYTE 0 7; CONTAINS THE TEST NUMBER 
001103 000 SERFLG: .BYTE 0O 3; CONTAINS ERROR FLAG 
001104 000000 S$ICNT: . 0 3: CONTAINS SUBTEST ITERATION COUNT 
001106 000000 $LPADR: .WORD 0 ;;CONTAINS SCOPE LOOP ADDRESS 
001110 000000 SLPERR: .WORD 0 3: CONTAINS SCOPE RETURN FOR ERRORS 
001112 000000 SERTTL: .WORD 0 ;;CONTAINS TOTAL ERRORS DETECTED 
001114 000 SITEMB: .BYTE O 3;CONTAINS ITEM CONTROL BYTE 
001115 001 SERMAX: .BYTE 1 3: CONTAINS MAX. ERRORS PER TEST 
001116 SERRPC: .WORD 0 S3 TAINS PC OF LAST ERROR INSTRUCTION 
001120 000000 SGDADR: .WORD 0 ;:CONTAINS ADDRESS OF ‘GOOD’ DATA 
001122 000000 SBDADR: .WORD 0 3;CONTAINS ADDRESS OF ‘BAD’ DATA 
001124 000000 SGDDAT: .WORD 0 3;CONTAINS ‘GOOD’ DATA 
001126 000000 SBDDAT: .WORD 0 ;; CONTAINS ‘BAD’ DATA 
001130 000000 -WORD 0 ; ;RESERVED--NOT TO BE USED 
001132 000000 -WORD 0 
001134 000 $AUTOB: .BYTE 0 ; AUTOMATIC MODE INDICATOR 
Beles 000 SINTAG: .BYTE . 3; INTERRUPT MODE INDICATOR 
001140 177570 : WORD DSWR ; ADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD DDISP ; ADDRESS OF DISPLAY REGISTER 
901144 177560 $TKS: 177560 :: TTY KBD STATUS 
001146 177562 $TKB: 177562 :z TTY KBD BUFFER 
001150 177564 $TPS: 177564 sz TTY PRINTER STATUS REG. ADDRESS 
001152 177566 $TPB: 177566 :: TTY PRINTER BUFFER REG. ADDRESS 
001154 000 $NULL: .BYTE 0 3: CONTAINS NULL CHARACTER FOR FILLS 
001155 002 S$FILLS: .BYTE 2 :;CONTAINS #4 OF FILLER CHARACTERS REQUIRED 
001156 012 SFILLC: .BYTE 12 72 INSERT FILL CHARS. AFTER A ‘ FEED** 
001157 000 SIPFLG: .BYTE 0 32° TERMINAL AVAILABLE’ FLAG (BI T<07>=0=YES) 
001160 177607 000377 $BELL: .ASCIZ <207><377><377> :;CODE FOR BELL 
001164 077 S$QUES: .ASCII /?/ 7 QUESTION MARK 
001165 015 SCRLF: .ASCII <15> 7 CARRIAGE RETURN 
001166 000012 SLF: eASCIZ <12> szLINE FEED 
CT ARK EKKEKKEKKKEEKEEEEKEEKEKEEEKEEEEEKEEKEKEREKEREEREKEEEEEEEEEEKEEE 
-SBTTL APT MAILBOX-ETABLE 
STEERER EREKEEEKEEEKEKEEREEEKEEEEEEEEEKEEEEKEEEKEEEKEKE 
EVEN 
001170 SMAIL: 7;APT MAILBOX 
001170 SMSGTY: .WORD AMSGTY ;:MESSAGE TYPE CODE 
001172 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
001174 STESTN: .WORD ATESTN' ;;TEST NUMBER 
001175 000000 SPASS: .WORD ::PASS COUNT 
001200 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
001202 SUNIT . WORD ::1/0 UNIT NUMBER 
001204 000000 $MSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
001206 000000 SMSGLG: .WORD A“SGLG ;;MESSAGE LENGTH 
001210 SE TABLE: : APT ENVIRONMENT TABLE 


2 
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3 


ee ee em me ee ee ed ed eed eed ed ed ed RS 


ye 4 eaten’ 
10:00 


é: 


RAN LE SHLRARAVSSS BHBVAARAVNASSEGEALAR 


> ©) 
WI 


> ENVIRONMENT BYTE 
: ENVIRONMENT MODE BITS 
3;APT SWITCH REGISTER 
;;USER SWITCHES 
7;CPU TY fg 
BITS watt $7 =CPU TYPE 
A= ao 4 11/05=02,11/20=03,11/40=04,11/45=05 

/70= 06,PD Q=07,0=10 
BIT 10=REAL TIME cL OCk 
BIT 9=FLOATING POINT PROCESSOR 

MANAGEMENT 


BIT 8=MEMORY 
; sHIGH wee mia” BYTE 
MEM.TYPE BYTE <== onschen BYTE) 
900 NSEC E=001 
300 eee BIPOLAR= 002 
500 NSEC MOS=003 
;sHIGH ADDRESS ,BLKA1 
MEM.LAST ADDR. me whit f THIS WORD AND LOW OF ‘‘TYPE’*’ ABOVE 


;;HIGH ADDRESS,M.S. BYTE 

+ 3MEM. TYPE, BLKA2 
>MEM.LAST ADDRESS ,,BLKA2 

; ;HIGH rE eS -S.BYTE 


: MEM. LAST ty ee BLKAS3 
HIGH ADDRESS,M.S.BYTE 

MEM. TYPE /BLKAG 
< CMEM_ LAST ADDRESS ,BLKA#4 
3; INTERRUPT VECTORA1,BUS PRIORITYA1 
3; INTERRUPT VECTOR#2BUS PRIORITYA2 
3;BASE ADDRESS OF EQUIPMENT UNDER TEST 
;;DEVICE MAP 


<3 


S388 & 


“= 
i 
— 
— 


SESRaR 


OE LS Be Salter 
OONAWIS WO 


POPIMONPIMINIPMUNIP MANNY 
MMn 


ee ee eee ee Le 
ae 
Mew 


NIN 
N 


001250 
001250 
001256 


001260 
001266 


001270 
001276 


001300 
001306 


001310 
001316 


001 320 
001326 


001330 
001336 


001 340 
001 344 


001350 
001356 


001 360 
001 366 


001370 
001376 


001400 
001406 


001410 
001416 


0204 
02377 
020456 
023776 
020475 
023776 
0204 
0253776 


020475 
023776 


020517 
023776 


020563 
023776 
020606 
023776 
0206 34 
023776 
020662 
023776 
020710 
023776 
020741 


023776 


020771 
023776 


MACY11 306(1063) 
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023074 


023074 


023120 


023074 


023120 


023055 


023162 


023213 


025213 


023213 


023215 


023213 


023250 


023502 


023502 


023512 


023502 


023512 


025474 


023526 


23536 


023550 


023562 


023574 


023574 


023606 


Rh ms 


RROR POINTER TABLE 


N 2 
10:00 PAGE 26 


- ,SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
NUMBER FOUND 


: * THE 


: *NOTE2: 


Se Be 
* =» = # 


SERRTB: 


“FRR 1 


sERR 2 


INF ORMAT 


GLOBAL DATA 
EM1 ,DH2 ,DT2,DF 


EM1 ,DH2 ,DI2,DF 
EM2,DH3,D13,DF 
EM1 ,DH2,DT2,DF 
EM2 .DH3,D15,DF 
EM3,DH1,DT1,DF 
EM4 .DH4 ,DT4,DF 
EMS .DH5 .DT5,DF 
EM6 ,DHS ,.DT6,DF 
EM7,.DH5.DT7,DF 
EM8 ,DH5 ,DT8, DF 


EMS ,.DHS .DT8 DF 


 £M10,DH6,DT9, DEF 


ION IS OBTAINED BY USING THE INDEX IN 
; "LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE - PERTINENT. 
; *NOTE1: IF SITEMB IS 0 RPC) 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


THE ONLY PERTINENT DATA IS (SERR 


;sPOINTS TO THE ERROR MESSAGE 
;;POINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 

;z;POINTS TO THE DATA FORMAT 


SEQ 0026 


&, 


PDT=11 
CVK 


A 


rroronnry 
Vivi 
con 


ek el ek ek ed ed ed ed ed nd 
SUBERORAS 
NAWUE WI 


A Un he Ay ly 
ARO 


1293 


SSyZUEIP 


E 
-P11 


XERCISER 


007420 
001426 


001430 
001436 


001440 
001446 


001450 
001456 


001460 
001466 


001470 
001476 


001500 
001506 


001510 
001516 


001520 
001526 


001530 
001536 


001540 
001546 


001550 
001556 


001560 
001566 


001570 
001576 


001600 
001606 


001610 
001616 


001620 
001626 


17-NOV-78 1 


021016 
024004 
021016 
024004 
021034 


024004 


021065 
024004 


021116 
024014 


021147 
024014 


021200 
024004 
021200 
024004 
021216 
024004 
021247 


024004 


021300 
024014 


021331 
024014 


021362 
023776 


021373 
023776 


021410 
023776 


021425 
023776 


021442 
023776 


023315 


023315 


023315 


023315 


023404 


023404 


0233515 


0233515 


023515 


023515 


023404 


023404 


023055 


023162 


023055 


023055 


023055 


023624 


023624 


023624 


023624 


023646 


023646 


023670. 


023670 


023670 


023670 


023712 


023712 


023474 


023526 


023474 


023474 


023474 


vy 44 30G6(10635) 17-NOV-78 10:00 PAGE 3° 


ERROR POINTER TABLE 


sERR 


sERR 


ZsERR 


sERR 


sERR 


sERR 


sERR 


sERR 


SERR 


ZERR 


ZERR 


SERR 


ZERR 


sERR 


SERR 


ZsERR 


17 


20 


21 


22 


23 


24 


25 


26 


EM11,DH7,DT10,DF1 
EM11,DH7,DT10,DF1 
EM13,DH7,DT10,DF 1 
EM14,DH7,DT10,DF1 
EM15,DH8,DT11,DF2 
EM16,DH8,DT11,DF2 
EM17,DH7,D112,DF 1 
EM17,DH7,DT12,DF 1 
EM19,DH7,DT12,DF1 
EM20,DH7,DT12,DF 1 
EM21,DH8,DT13,DF 2 
EM22 ,DH8,DT13,DF2 
EM23,DH1,DT1,DF 

EM24 ,DH4,DT4,DF 

EM25,DH1,DT1,DF 

EM26,DH1,DT1,DF 


EM27 ,DH1,D71,DF 


SEQ 0027 


PDT=11 EXERCISER 
CVK P11 


SSESSEas B 


INIWNWWAAWNAWWAG 
and anh anh ant anh ach anh ath anh ax 


ASS SSCRS ROSS 


Ue 


IN.NIWWWWNINWWINWWG 
DURA 


W 


WDONAUESWN OO 


PR SS A SS Ss SS os FH Ss SS SH Ss SS 2 Ss SS SS Ss SS SS Ss SS SS SS SS SS SS SS Ss SS SS Ss SS SS os SS SS Ss SS SS ss YS ss 1 


WWIWNIWWNANWNIWANW 


MMAMAMAUIVUIUTU) 
NOU EW =O 


001630 
001636 


001640 
001646 


001650 
001656 


001660 
001666 


001670 
001676 


001700 
001706 


001710 
001716 


001720 
001726 


001730 
001736 
001740 
001746 


001750 
001756 


001760 
001766 


001770 
001776 


002000 
002006 


002010 
002016 


002020 
002026 


002030 
002036 


002040 
002046 


002050 


021457 
023776 


021476 
023776 


021516 
023776 


021527 
023776 


021540 
023776 


021603 
023776 


021644 
023776 
021516 
023776 


021516 
023776 


021516 
023776 


021516 
023776 


021703 
023776 


021750 
024014 


022017 
023776 


022043 
023776 


021516 
023776 


022111 
023776 


021516 
0.3776 


022141 


3 
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023055 


023055 


023250 


023250 


023055 


023055 


023055 


023250 


023250 


023250 


023250 


023250 


023404 


023250 


023250 


023250 


023250 


023250 


023250 


023474 


073474 


023734 


023734 


023474 


023474 


023474 


023734 


023734 


023734 


023734 


023606 


023646 


023606 


025606 


023734 


023606 


023734 


023606 


sERR 


sERR 


sERR 


ZsERR 


sERR 


sERR 


sERR 


sERR 


sERR 


sERR 


ZERR 


sERR 


ZERR 


sERR 


sERR 


ZsERR 


sERR 


ZERR 


37 


40 


41 


42 


43 


44 


ZERR 61 


EM28 ,DH1,DT1,DF 
EM29,DH1,DT1,DF 
EMS0 ,DH6,DT14,DF 
EM31,DH6,D114,DF 
EM32,DH1,DT1,DF 
EM35,DH1,DT1,DF 
EM34 ,.DH1,D11.,DF 
EM30,DH6,DT14,DF 
EM30,DH6,DT14,DF 
EM50,DH6,DT14,DF 
EM30,DH6,DT14,DF 
EM35 ,.DH6,DT9,DF 
EM36,DH8,DT11,DF2 
EM57,DH6,DT9,DF 
EM38,DH6,DT9,DF 
EM50 ,DH6,DT14,DF 
EM39 ,DH6,DT9,DF 
EM50 ,.DH6,D114,DF 


EM40,DH6,DT9,DF 


SEQ 0028 


PDT-11 EXERCISER 
CVKDAB.P11 


AN 
aA 
“O00 


SESESESES 


NNN NN NNN on 


apepererererararere 
00 


YS a SS ss SS SS ss SS SP SS SS a SS SS es SS 2S Ss SS SS es Ss SS ss SS SS Ss SS SS 7 
BS SEES RES sSs 
WOONOUES Wh 


002056 


002060 
002066 


002070 
002076 


002100 
002106 


002110 
002116 


002120 
002126 


002130 
002136 
002140 
002146 


002150 
002156 


002160 
002166 


002170 
002176 


002200 
002206 


002210 
002216 


002220 
002226 


002230 
002236 


17-NOV-78 


023776 


022204 
023776 


022240 
023776 


022261 
024004 
022261 
024004 
022315 
024004 
022313 
024004 
022344 
024004 
022344 
024004 
022376 
024004 
022376 
024004 
022427 


023776 


022453 
023776 


022477 
023776 


022477 
023776 


D 3 
ang 4h 30G(1063) 17-NOV-78 10:00 PAGE 29 


:00 


023250 


023250 


023515 


023315 


023315 


023515 


0233515 


0233515 


023315 


023315 


023250 


023250 


023213 


023213 


023606 


023606 


023624 


023624 


023624 


023624 


023670 


023670 


023670 


023670 


023606 


023734 


023752 


023764 


ERROR POINTER TABLE 


sERR 


ZsERR 


sERR 


sERR 


sERR 


;ERR 


sERR 


ZERR 


ZERR 


;ERR 


ZERR 


sERR 


ZERR 


sERR 


é2 


63 


64 


65 


66 


67 


70 


EM41,DH6,DT9,DF 
EM42 ,DH6,DT9,DF 
EM43,DH7,DT10,DF 1 
EM43,DH7,DT10,DF1 
EM45 ,DH7,DT10,DF1 
EM45,DH7,DT10,DF 1 
EM47,DH7,DT12,DF1 
EM47,DH7,DT12,DF 1 
EM49,DH7,DT12,DF1 
EM49,DH7,DT12,DF1 
EM51,DH6,DT9,DF 
EM52,DH6,DT14,DF 
EM53,DH5,D115,DF 


EMS3,DH5,D1T16,DF 


SEQ 0029 


PDT-11 EXERCISER 
C 17-NOV~78 


VKDAB.P11 


BEREERS 
3 


a cad ae cd ed ceed ce ed ed eed 
WOONAUSWN$O 


BERR RRE RES 


rmnrong 
Wwh— 


002240 
002246 


002250 
002256 


002260 
002266 


002270 
002276 


002300 
002306 


002310 
002316 


002320 
002326 


002330 
002336 


002340 
002346 


002350 
002356 


002360 
002366 


002370 
002376 


021034 
023776 


021209 
023776 


022546 
023776 


021216 
023776 


022565 
000000 


022620 
000000 


022655 
024004 
022676 
024014 
022717 
000000 
622755 
024004 


022776 
024014 


023017 
000000 
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ERROR POINTER TABLE 


10:00 


023250 


023250 


023250 


023250 


000000 


000000 


023515 


023404 


000000 


0233515 


023404 


000000 


023734 


023734 


023734 


023734 


000000 


000000 


023624 


023646 


000000 


023670 


023712 


000000 


; ERRORS FOR COPY UTILITY 
sERR 1 


sERR 


sERR 


sERR 103 


;BAD 


sERR 105 


7CRC 


sERR 106 
sERR 107 


zERR 110 


ZERR 


sERR 11 


sERR 11 


102 


SECTOR/TRACK TABLE FULL ERRORS 
sERR 104 


00 
EM13,DH6,DT14,DF 
101 


EM17,DH6,DT14,DF 
EM54 ,DH6,DT14,DF 


EM19,DH6,DT14,DF 


EM55,0,0,0 


EM56,0,0,0 


ERRORS 


117 


EM57,DH7,DT10,DF1 


EM58,DH8,DT11,DFe 


EM59,0,0.0 


EM60,DH7,DT12,DF1 


2 
EM61,DH8,DT15,DF2 


3 
EM62,0,0.,0 


SEQ 0030 


PDT=11 EXERCISER 
CVKDAB.P 1. 17-NOV-78 


F 3 
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rag) OM, 30G6(1063) 
10:00 ERROR POINTER TABLE 


SEAR EKEEKKEEKEEKEERERRKEREEKREREEEKREEERERKERKEKEEE 


: REGISTERS & BUFFERS FOR DxO TESTS 


SERRA AEEEEREKEKRKKEKKEKEERHKREKEREEKREKEEKEEEKKEEEKKKKEE 


DOPAT: 0 :DXO PATT TEST DONE FLAG 
DOCNT: 0O -DXO RANDOM SEEK COUNTER 
DOERR: 0 *DXO RCSR ERR COUNTER 

DOTRK: O =DXO T inp 

DOSEC: 0 =DXO SECT 

DOCMER: 0 =DxO DATA OC OMPARE ERROR FLAG 
DOCERR: 0 ;DX0 TOTAL oy? _ ERROR CT 
DOEXP: 0 DxO EXPECTED D 

tine ¥5 ; :BxO RECEIVED PATA 


:DXO CRC ERROR FLAG 
:DX0 DATA BUFFER 
:DXO0 BAD TRK/SEC TABLE 


-BLKW 100 


DOBAD : -BLKW 10. 


FREER AKER REAR ERKEEEKKKEEEKREEKERERKEKEKEKEREEHEKKEREKEE 


: REGISTERS & BUFFERS FOR DX1 TESTS 


SEAR AERA RRR EKEERERE RE KAREEKEEKEKEKEKEKEKEKKEKEKKEKEREKERKEKEEKEKEEE 


DIPAT :DX1 PATT TEST DONE FLAG 
DICNT 3;DX1 RANDOM SEEK COUNTER 
DIERR 3Dx1 


RCSR ERR COUNTER 
:DX1 TRACK 


—° 

— 

4 

mn 

oy 
elelelelelelelealeale) 


:DX1 SECTOR 

:DX1 DATA COMPARE ERROR FLAG 
DICERR ;DX1 TOTAL DATA COMPARE ERROR CT 
DIEXP: :DX1 EXPECTED DATA 
DIREC: :DX1 RECEIVED DATA 
DICRC: :DxX1 CRC ae FLAG 
DIBUF: .BLKW 100 ;DX1 DATA BUFFER 
DIBAD: .BLKW 10. DX1 BAD TRK/SEC TABLE 
DxTST: O :1 = DATA ake ag 

:2 = RANDOM S TEST 

:5 = INITIALIZE TEST 

34 = RESTORE TEST 

35 = WRITE DELETED DATA TEST 

36 = INVALID ADDRESS TEST 
FIN: -C 


AX TRACK. FOR DXO & DX1 FOR TRK/SEC FINISHED 


0 : 
MAXTRK: 0 >MAX T 
70 FOR 1°ST PASS, 114 FOR pet el PASSES. SET AT START. 
MAXSK: (© :# OF RANDOM SEEKS TO BE PERFORMED 
:10 FOR 1'ST PASS, 500 FOR SUBSEQUENT PASSES. SET AT EOP. 
COPFLG: : ; 0 = NORM TEST 1 = COPY UTILITY ACTIVE 
0 : 


= COMPAT TESTS, PASS 1 
= PASS 2 


SEQ 0031 


gh EXERCISER 


VKDAB.P11 


- 


= ee ee ee eS ee ee ee Pe Pe ee Pe Pe LP ee ee LL Pe ee ee ee oe ee ee ee Lo 


DRADE 
VI A & 
RALLS$S 


905 0035154 
50S 


335 
S 
z 


PIA AIVIVIAAIT IAI IU UA VIII) 


BIRARAVYISVSVRARWVLS 


MMMM VITVIVII 1 
WG 

> *) 

sss § 

LNW 

WN 

—_ 

Nm 


REFEEEKERE 
WS ODNANRWN IO 
8 
On 


MIWA 
MAW) 


& 
8 
: 


WOON AUS WN—© 
WG 
Nm 
— 
© 
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012737 
012737 


os 


£00 


003134 
000102 
000002 


063132 
003134 
003150 


001100 
000100 


000042 
001210 


000042 


001100 
001140 
001100 
025416 


340 


177777 


003402 


000100 
000102 


175706 


004464 
000001 


3 
cy11 Pn ee 17=-NOV-78 10:00 PAGE 82 
PROGRAM 


-SBTTL PROGRAM 
START1: INC COMP1 :COMPAT PASS 1 
BR $1 
START2: INC COMP2 :COMPAT PASS 2 
CLR COMP 1 
S2 
START3: INC COPFLG ;COPY UTILITY 
CLR COMP1 
CLR COMP2 
$3 
START: MOV ACLKVEC+2,CLKVEC 3D0 RTI IF CLOCK INTERR 
MOV ARTI, CLKVEC+2 
CLR COMP1 NORMAL TESTING 
Si: CLR COMP2 
S2: CLR COPFLG 
$3: MOV A#STACK,SP s;SETUP STACK POINTER 
BIC #190, a$TKS ; DISABLE ANY TTY INTERRUPTS 
-TO RT-11 MONITOR 
sMTPS APRS “DISABLE INTERRUPTS 
WORD 106427 
PR4 
MOV 42,HLD42 : SAVE 
CMPB SENV,41 : ? 
BEQ 2$ ;BR IF YES 
CLR 42 sELSE CLR SO WE CAN USE SOFTSWR 


es: 
-SBTTL INITIALIZE THE COMMON TAGS 
7;;CLEAR THE COMMON TAGS (S$CMTAG) AREA 
MOV TAG ,R6 giest LOCATION TO BE CLEARED 
LEAR MEMORY LOCATION 


;-LOOP BACK IF NO 
MOV WSTACK .9P ;sSETUP THE STACK POINTER 
; INITIALIZE A FEW VECTORS 
MOV #SERROR, 


aVEMTVEC fee eo FOR ERROR ROUTINE 





MOV = #340 ,aWEMTVEC+2 51 
MOV STRAP. @#TRAPVEC’ :: TRAP_VECTOR FOR TRAP CALLS 
MOV #340, a#TRAPVEC+2;LEVEL 7 
;:SIZE FOR AH HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A '=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV  @#ERRVEC,~(SP) ;:SAVE ERROR VECTOR 
MOV  #64$,a#ERRVEC SET UP ERROR VECTOR 
MOV = #DSWR, SWR ;:SETUP FOR A HARDWARE SWICH REGISTER 
MOV § ADDISP.DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
(MPs #=1, SW TRY TO REFERENCE HARDWARE SWR 
BNE 66$ ; BRANCH IF NO TIMEOUT TRAP OCCURRED 
3 DWARE SWR IS NOT = ~1 
He 65$ ;:BRANCH IF NO TIMEQUT 
64$: MOV &#cS$, (SP) SET UP FOR TRAP RETURN 


SEQ 0032 


3 


so 
TREROSLELSOe Bs 


:s 


IIIS 
SWN—oO Oo 


Si o 
aul N 


-11 EXERCISER 
~P11 


012737 
012737 
012637 


005037 
132737 
001403 
012737 


000423 


012737 
012737 


005037 
005037 


052737 
042737 


MACY11 30G(1063) 
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000176 
000174 
900004 


001176 
000200 
001212 


177777 
003520 
000042 
001210 
001140 


000001 


003150 
003132 
003134 


000004 
000012 


025766 
025770 


000006 
000006 


001140 
001142 


001211 
001140 


000001 
000176 


001134 


003124 
003126 


17=NOV-78 


3 
10:00 Sp 3 


INITIALIZE THE COMMON T 


65$: 
66$: 


A#SWRE 


G, SwR 
#D1ISPREG, DISPLAY 


(SP) +, @#ERRVEC 
$SPASS 

MAPTSIZE ,SENVM 
67$ 
ASSWREG , SWR 


67$: 
a TYPE PROGRAM NAME 
: TYPE —— Petes PROGRAM IF FIRST PASS 


. SBTTL 


70$: 
71$: 


;69$: 
Lbs. 


YPE ,69$ 
GET VALUE By SOF TWARE sich oy he 


70$ 
lead 


SWR ,ASWREG 
71$ 
71$ 
#1, $AUTOB 


68$ 
<CRLF >*CVKDAB 


#4 MAXTRK 

#10. ,MAXSK 

TERR 

TSERR 
#<RTS'DTR>,AMRC 
#<RTS'DTR>,AMRC 


>sPOINT TO SOFTWARE SWR 
; sRESTORE ERROR VECTOR 


;sCLEAR PASS COUNT 

ii TEST USER SIZE UNDER APT 
YES,USE NON-APT SWITCH 

:3NO,USE APT SWITCH REGISTER 


+ sFIRST TIME? 


CH IF NO 
YPE ASCIZ STRING 


RUNNING UNDER XXDP/ACT? 

* BRANCH IF YES 

+ ARE WE 7 ae UNDER APT? 
sBRANCH IF YES 

SBpanOn TF <n REG SELECTED? 


NO 
:GET SOFT-SWR SETTINGS 
;sSET AUTO-MODE INDICATOR 


;GET OVER THE ASCIZ 
pbt-11/150 SYSTEM EXERCISER*<CRLF> 


;COPY UTILITY? 
;BR IF YES 
;COMPAT PASS 1? 
:BR IF YES 
;COMPAT PASS 2? 
:BR IF YES 


;TRK 0-4, 40-44, 72-76(10) FOR 1°ST PASS 
:10 RANDOM SEEKS FOR 1'ST PASS 


sTOTAL ERR CT 
;TOTAL SOFT ERR CT FOR EOP TYPEOUT 


:DTR MUST BE TOGGLED. 


SEQ 0033 


PDT=11 EXERCISER MACY11 306(1063) - 17 oNOv=78 10:00 PAGE 
CVKDAB.P11 17-NOV=78 10:00 T VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0034 
1598 
1599 003650 005227 177777 INC #~1 :1°ST TIME? 
1600 003654 001005 BNE 4$ -BR IF NO 
1601 003656 123727 001210 000001 CMPB ~—s- SENV, #71 “APT? 
1602 003664 001401 BEQ 4$ “BR IF YES 
1603 003666 104412 GTDEVM -SHOW CURRENT DEVM & GET NEW 
1605 003670 004737 010342 4$: JSR PC,SIZE ;SEE WHO IS ON THE SYSTEM 
1606 003674 123727 001210 060001 CMPB  ~—s- SENV,, 41 “ARE WE RUNNING UNDER APT? 
1607 003702 001413 BEQ LOOP :BR IF YES & DONT HALT 
1608 003704 032737 001000 001246 BIT #1000, $DEVM =DXO THERE? 
1609 003712 001404 BEQ 1$ :BR IF YES 
1610 003714 032737 000400 001246 BIT #400, $DEVM =DX1 THERE? 
1611 003722 001003 BNE LOOP *BR IF NO 
1612 003724 104401 017351 i$: TYPE WARNING - INSERT SCRATCH DISKS 
1613 003730 000000 HALT 
1618 
1616 003732 012706 001100 LOOP: MOV #1100,SP :LOOP HERE AFTER EOP & RESET STACK 
1618 003736 004737 011566 JSR PC, TIMER1 : TIMER TO ALLOW 'P* TO PRINT BEFORE RESET 
1620 003742 000005 RESET :CLEAR ALL INTERRUPT ENABLES 
1621 003744 042737 000100 177546 BIC #IE,CLK sRESET SETS CLK IE. DONT ALLOW YET 
1623 -MTPS  #PRO :ALLOW INTERRUPTS 
1624 003752 106427 “WORD 106427 
1625 003754 000000 PRO 
1627 003756 052737 000006 176610 BIS #<RTS'DTR>,AMRC :TO CONDITION ALL TERMINALS & 
1628 :COMM PORT TO OPERATE IN EXT LOOPBACK MODE. 
162S =NO HARM IF LOOPBACK NOT USED. 
1630 003764 004737 011566 JSR PC, TIMER1 :TIMER TO ALLOW PREV XFERS TO FINISH 
1632 003770 005037 025772 CLR PERR :PASS ERR COUNT FOR EOP TYPEQUT 
1633 003774 005037 025774 CLR PSERR :PASS SOFT ERR COUNT FOR EOP TYPEOUT 
1635 004000 004737 011664 JSR PC, CLRBAD :CLEAR BAD SECTOR/TRACK TABLES 
1637 004004 005737 003132 TST COMP1 :COMPAT PASS 1? 
1638 004010 001004 BNE 1$ “BR IF YES 
1639 004012 005737 003134 TST COMP2 =COMPAT PASS 2? 
1640 004016 001001 BNE 1$ 7BR IF YES 
1641 004020 000405 BR 2$ “ELSE TEST FOR COPY 
1643 004022 012737 000114 003124 18: MOV #114.MAXTRK 
1644 004030 000137 006256 JMP DXTST1 : COMPATABILITY TESTING 
1646 004034 005737 003130 2$: TST COFFLG :COPY UTILITY? 
1647 004040 001402 BEQ MEMTST “BR IF NO...NORMAL TESTING 
1648 004042 000137 016354 MP COPY “ELSE GO COPY 


PDT-11 EXERCISER 


CVKDAB.P11 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 004046 
1661 
1662 004052 
1663 004 
1664 
1665 004 
1666 004072 
1667 
1668 004076 
1669 004100 
1670 004104 
1671 004106 
1672 004112 
16735 004114 
1674 004120 
1675 004122 
1676 004126 
1677 004132 
1678 
1679 004134 
1680 004140 
1681 004146 
1682 
1683 004152 
1684 004156 
1685 004162 
1686 004166 
1687 004170 
1688 004174 
1689 004176 
1690 004202 
1691 004210 
1692 004212 
1693 004216 
1694 
1695 004220 
1696 004224 
1697 004232 
1698 
1699 004234 
1700 0042 
1701 004240 


004737 


012737 
012737 


013703 
162703 


3 
MACY11 30G(10635) 17=NOV-78 10:00 PAGE 35 
PROGRAM 


17=NOV-78 10:00 


011102 


012142 
000200 


010766 
000300 


012150 
012150 
004462 


000002 
026532 
004454 
125252 
026532 
012150 
004460 
012150 
004462 


004456 
004456 


004462 


000002 
004464 


000004 
000006 


004460 


004460 


001090 


-SBTTL PROGRAM 


FL RARER EEAHEERREREKEEEEREREKEEEEEKEREEEEEEKEREREREE 


; MEMORY TESTS 


;MEMORY FROM Q TO THE LAST LOC OF PROGRAM (LSTAD) IS TESTED FOR TIMEOUT. 
MORY FROM "LSTAD' TO THE BOTTOM OF THE RT11 MONITOR/ABS L R 

:1S TESTED BY A PASS OF A 1010 PATT FOLLOWED BY A PASS OF 0101 PATTERN. 

IF THE SYSTEM HAS A 28K MEMORY, 28K TO 30K WILL BE TESTED SIMILARLY. 


SIS EIIEIEIOUIIOIO ISO ISIE IIE IIE SISOIOISIO ISOC OR that th 


MEMTST: JSR PC,EXAMKB 
MOV #INTSRV,ERRVEC :SETUP TIMEOUT TRAP ADDR 
MOV #200, ERRVEC+2 
MOV MAXMEM,R3 
SUB #300.R3 :TEST ONLY AS FAR AS ABS LOADER IF NOT RT-11 
CLR RL :ADDR POINTER 
1$: CLR INTFLG 
TST (R4) :TEST LOCS 0 THRU END OF PGM. 
TST INTFLG : TIMEOUT? 
BEQ 2$ :BR IF NO 
MOV R4,ADDR -FOR ERR TYP 
ERROR 1 = TIMEOUT ON READ 
2$: ADD #2,R4 “BUMP ADDR 
CMP R4-ALSTAD “AT END? 
BNE 1$ ;BR IF NO 
CLR MEMCT 
MOV #125252, PAT :DATA PATT FOR 1°ST PASS 
8$: MOV HLSTAD.R4 “ADDR POINTER. R/W LOCS LSTAD THRU 
:BOT OF RT11 OR BOT OF ABS LOADER 
3$: CLR INTFELG 
MOV PAT, (R4) sWRITE 
TST INTFLG : TIMEOUT? 
BEQ 4$ “BR IF NO 
MOV R4,ADDR :FOR ERR TYP 
ERROR 2 TIMEOUT ON WRITE 
4$: MOV (R4) .MEMHLD “READ 
CMP MEMHLD PAT * COMPARE 
BEQ 6$ 
MOV R4 ADDR :FOR ERR TYP 
ERROR 3 =COMPARE ERROR 
ADD #2,R4 :BUMP POINTER 
CMP HLD42,41000 =RT11 IF LOC 42 = 1000 
BEQ 7$ “BR IF RT11 
CMP R4,R3 :ELSE AT BOT OF ABS LOADER? 
BNE 3$ : 
BR 5$ sELSE EXIT 


SEQ 0035 


PDT-11 EXERCISER 
C 17-NOV-78 1 


VKDAB.P11 


SELERRES 


SNA 
SHS os sO SO 
OWNAUAWN—O 


SIN SN NN NNN 
NUON VVNND 
CONOULSWI— 


BaREaSy 


aac 
N 


“SJ 
NRRRRWR 
UE WN—-Owo 


Or 


Ss 
x 
N 


023727 
001047 


012737 


012737 
005037 


032777 
12 


000000 
000000 
009000 
000000 


MACY11 30G(1063) 


10:00 


000054 
004454 


004454 
052525 
010766 


125252 
160000 
012150 
004460 
012150 
004462 


004456 
004456 


004462 
000002 
167776 


004454 
004454 


052525 
000006 
000006 
010000 


017743 
017756 


004460 


157776 


004460 


004460 


000003 
004460 


000004 


174500 


17=-NOV-78 
PROGRAM 


7$: 
5$: 


ond amd 
—O 
Aw 


12$: 


14$: 


15$: 


MEMCT: 


0 
0 
0 
0 


K 3 
10:00 PAGE 36 


R4,54 ;LOC 54 CONTAINS LOW ADDR OF RT11 MONITOR 
;BR IN NOT THERE 

MEMCT 

9$ 

MEMCT 

#052525,PAT ;DATA PATT FOR 2'ND PASS 

8$ s;REPEAT 

MAXMEM,4157776 ;DO WE HAVE 28K? 

15$ ;BR IF NO & ExIT 

#125252, Ang s;DATA PATT FOR 1°ST PASS OF HI MEM 

wr “ADDR PTR TO TOP OF 28k 

PAT, (R4) sWRITE 

INTFLG 

12$ 

R4,ADDR sFOR ERR TYP 
> TIMEOUT 

(R4) ,MEMHLD ; 

— ; COMPARE 

R4,ADDR sFOR ERR TYP 

5 : COMPARE ERROR 

#2 ,R4 

R4 4167776 sAT END OF 30K? 

11$ ;BR IF NO 

MEMCT 

ee 

#052525,PAT s;DATA PATT FOR 2°ND HALF OF HI MEM 

10$ sREPEAT : 


#ERRVEC +2 ,ERRVEC sRESTORE TIMEOUT VECTOR 
ERRVEC+2 


#B1T12,aSWR :SKIP TYPEOQUT IF NOT SET 
CLKTST 
-MEMORY 
, DUN 
CLKTST 
;0 = MEM FROM LSTAD TO \ : plalaatalis LOADER W/ 125252 PATT 
;l = _—, WITH 052525 P 
;1 = MEM FROM 28k TO 30k wits 125252 PAT 
:§ = ety WITH 052525 PAT 
;PUT MEMORY READ 
;PATT TO BE WRITTEN & READ 
sADDR UNDER TEST 
;SAVE LOC 42 


CL EAA, Ate SaaS ERSSARAAASESASRS ASRS ARERR SSSR ESR SE SE SS | 


START LINE CLOCK 


SEQ 0036 


a 
ae. EXERCISER MACY11 30G(1063) 17-NOV-78 10:00 pace °37 


VKDAB.P11 17-NOV-78 10:00 PROGRAM SEQ 0037 
1758 SSE RIIIIUIIOISIIIIOIIOIOIIOIOIOII IAI IOIUISIOIIIIIIIOIIUIOIUIDIOIISII I IDIOIOIDIDIO III III I 
1759 
1760 004466 032737 000200 001246 CLKTST: BIT ABIT7,SDEVM ;DROP TEST? 

1761 004474 001031 BNE PRTST ;BR IF YES 

1762 004476 012737 012142 000100 MOV MINTSRV,CLKVEC ;SETUP VECTOR AREA 

1763 004504 012737 000200 000102 MOV #200,CLKVEC+2 ;LOCKOUT OTHER INTER. 
1764 004512 005037 012150 CLR INTFLG 

soee 004516 052737 000100 177546 BIS #IE.CLK ;SET CLOCK LOOSE! 

1767 004524 004537 011316 JSR R5,TIMER ;SEE IF INTFLG GOES TO 100 
1768 004530 012150 INTFLG 

1769 004532 000100 100 

1770 004534 104032 ERROR 32 ;CLK NOT RESPONDING 

ion 004536 000470 BR PRTST 

1773 004540 032777 610000 174372 BIT #B1T12,aSWR :SKIP TYPEOUT IF NOT SET 
1774 004546 001404 BEQ PRTST 

1775 004550 104401 017244 TYPE CLOCK 

1776 004554 104401 017670 TYPE ,RUN 


PDT=11 EXERCISER 
C 17-NOV-78 1 


VKDAB.P11 


and 
a i i | 
Wy 


SRILACAS 


BER ARON CS SELES R EN ess 


00 00 00 Oo CO 
ad ed ed ed 
WHO 


032737 
001056 


012737 
012737 
012737 


005037 
012737 


052737 


MACY11 30G6(1063) 


10:00 


100000 
010744 
027014 
012152 
000200 
012300 
000015 
000100 


011316 


010746 
000100 
010000 


017204 
010746 


017215 
017670 


001246 


177420 
000200 
000202 
012276 


177514 


177514 
174242 


ean 
PROGRAM 


mM 3 
10:00 PAGE 38 


5 FRAO RARER ARR EAEKEKEEKEEEEEREKRRKRKEERREREREREEEEEREEEEEEREEEKEEEE 


START PRINTER 


FL AAR AKER EREEEKKKEREKEREKKERREREAEKEEEEKRKEEREKEKKEKKEE 


PRTS*: 


2$: 


3$: 


4$: 


BIT #B1T15,$DEVM 
BNE SMTST 
TST PRPRES 
BEQ SMTST 
MOV 
MOV #PRSRV ,PRVEC 
MOV #200,PRVEC+2 
CLR LINCT 
MOV #CR,PRCHR 
BIS #IE,PRS 
R5,TIMER 
‘gap 
ERROR 355 
SMTST 
TST PRPORT 
BEQ 3$ 
BIC #IE,PRS 
BIT #B11T12,aSWR 
BEQ SMTST 
TYPE »PRINT 
TST PRPORT 
BEQ 4$ 
TYPE ePORT 
SMTST 
TYPE ,RUN 


#<PRT !B9600 ! CHAR8> , PARAM 


:DROP TEST? 


:BR IF YES 
sPRINTER THERE? 
:BR IF NO 


; SETUP BAUD RATE & CHAR LENGTH 
;ELSE SETUP PRINTER VECTOR 
:LOCKOUT INTERR 


*CLEAR LINE CTR 

:CHAR TO BE PRINTED 

:"DEL" (177) CAN BE USED TO CLR PRINTER BUFF 
:SET PRINTER LOOSE! 


:WILL PRINT CONTINUOUS 132 COLUMN LINES 


sEA BEGINNING WITH ASCII 40 THRU 176 
>SEE IF LINCT GOES TO 5 


sPRINTER NOT RESPONDING 


sEXT LOOPBACK MODE? 
;BR IF NO 


sELSE SHUT DOWN PRINTER 


:SKIP TYPEOUT IF NOT SET 


sEXT LOOPBACK MODE? 
BR It NO 


SEQ 0038 


00 09 Oo 09 Oo 
aah ad and and ctl 
OONAW! 


BERS WRORSS 


ee ee ee ee ed ee ed ed ed aed 
0 00 00 CO CD 
CaSVS 

Who— 


1835 
1 


XERCISER 
11 17-NOV-78 1 


032737 
001402 
000137 


123727 
001003 


052737 
032757 


052737 


052737 
012757 


os 


00 


011600 


176622 
012702 


011272 


CY11 30G6(1063) 


001246 


000001 


176024 
176624 


0012%6 
176624 


176624 
176626 


012702 
000026 


17-NOV-78 
PROGRAM 


N 3 
10:00 PAGE 39 


FARIA RARER AAAAEERAEEAAREREAAKRKRARRARRAEERERERERRERHERRRKEKEEE 


START SYNC COMM PORT 


5 LARA RAR ARERR ARERAEAERAEEEARAEREREKERERERRERRAEREREERRERERRREREE 


SMTST: 


8$: 


9$: 


4$: 


BIT #B1T10,$DEVM ;DROP TEST? 
BEQ 8$ “BR IF NO 
JMP AMTST ;ELSE JUMP TEST 
CMPB SEN’ #1 sUNDER APT? 
BNE 9$ “BR IF NO 
TST $SPASS sELSE 1°ST PASS? 
BNE AMTST “EXIT TEST IF NO 
CLR LSTCHR ;LAST CHAR FLAG FOR XMIT 
BIS AMR , SMXC =MASTER RESET 
BIS #MCLK , SMXC =MAINT CLOCK 
BIT #BITS,$DEVM ;EXT LOOPBACK? 
BEQ 1$ “BR IF YES 
BIS A<MM'MCLK>,SMXC ELSE + MAINT MODE FOR INT. LOOPBACK 
MOV #<CHR8' ODDPAR | 026>, SMP ;SETUP SYNC PARAMETER REGISTER 
BIS #<RTS'DTR'!SRSYN>, ohne sSET REQ TO SEND, DATA TERM RDY 
72 SEARCH SYNC 
BIS ASEND , SMXC s ENABLE XMIT SEND 
MOV #026, SMXB MIT SYNC CHAR 
JSR RS, TIMER2 ;WAIT FOR DONE 
SMRC 
DONE 
ERROR 45 ;NO DONE 
BR 5$ sEXIT 
MOV SMRB , COMHL D ;READ WORD 
CMP COMHLD , 4026 — :I1S IT SYNC CHAR? 
BEQ 4$ | “BR IF YES 
FRROR 6 DID J REC SYNC CHAR 
JSR RS, SETVEC ;SETUP VECTOR AREA 
SMRVE C 


SEQ 0039 


eee 


SEEa EER ER EES 


XERCISER 
11 


012737 
052737 
052737 


032777 


104401 


MACY11 306(1063) 
17-NOV-78 10:00 


011316 


000400 
010000 


017155 
017756 


B 4 
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PROGRAM 


V #027, COMCHR 
BIS #IE,SMRC 
BIS #1E,SMXC 
JSR RS, TIMER 


AMR , SMXC 
BIT #B1T12,aSWR 
AMTST 
TYPE . SCOM 
TYPE » DUN 


;1°ST CHAR TO BE XMITTED 
:SET SYNC MODEM LOOSE! 


>SEE IF COMCHR GOES TO ALL 1°S (DONE) 


sSYNC COMM NOT RESPONDING 


sMASTER RESET 
;DO TYPEOUT IF SET 
sEXIT IF NOT 


SEQ 0040 





2 Ame EXERCISER 


VKDAB .P11 


1874 
1875 
1876 
1877 


oo 
3 


SEE oth SRS eR ott Set det tS 


032737 
001054 


032737 
001404 
012737 
000403 
012737 
052737 
004537 

0 
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004000 


000010 
037036 
037034 
000006 


011272 


012700 
176612 
10¢ 


000 
000100 
011316 


010000 


017170 
017670 


001246 


061246 
177420 


177420 
176610 


012702 
176610 
176614 


173612 


17-NOV~-78 
PROGRAM 


10: 


C 4 
00 PAGE 41 


5 TEAR EEEEEEKKEKEKKEKEKKKEEKREREKEKEKEEEKEEKEKEEKEKKEKEEKEEE 


AMTST: 


START ASYNC COMM PORT 
FT EAR EKKKKKEKKEEREEEKKEKEEEKEKREKEEEKKKKEEKKK 

BIT #B1T11,$DEVM =: DROP TEST? 
BNE CLITST “BR IF YES 
BIT #B1T3,$DEVM sEXT LOOPBACK? 
MOV _ eremenenanaine rete PARAM :ELSE SET FOR INT LOOPBACK 
MOV <AMOD 'B9600!OPAR!CHAR8>,PARAM :WAKE UP AMOD IF JUST DID SMOD 
BIS RTS DIRS, AMRC ;SET REQ TO SEND & DATA TERM RDY 
JSR R5,SETVEC :SETUP VECTOR AREA 

AMRVEC 

AMRSRV 

AMXSRV 
CLR HR :CHAR TO BE XMITTED 
MOV AMRB, COMHLD -CLR OUT ANY PREVIOUS STORED WORD 
BIS ,AMRC :SET ASYNC MODEM LOOSE! 
BIS #IEAMXC 
SR RS, TIMER :SEE IF COMCHR GOES TO 377 

aa 
ERROR 40 :ASYNC COMM NOT RESPONDING 
CLITST 

BIT #B1T12,.aSWR :SKIP TYPEOUT IF NOT SET 
BEQ CLITST 
TYPE /ACOM 
TYPE “RUN 


SEQ 0041 





<3 


ead ad cad aa cl call exh % 
O00000 


' 
at 


oO 


ab ath ac cae 
WOONOUIE WO 


SS 


OVO RUN 
NESW 


OOOGO DODO ODO D000 
OASVOLK 


DO0000 
SRIRAK 


RREKLKELLKKK 


Nk ek dd dd a a a 
wy 
=ODODBNAUSWN OO IN 


Oo 
WI 


RCISER 
17-NOV-78 


005737 
001002 
000137 
032737 
001406 
042737 
052737 


032737 
001051 


032737 
001404 
012737 
000403 
012737 
004537 
000 


MACY11 30G6(1063) 


10:00 


010742 
006014 
004000 


000006 
000006 


010000 


000001 
005016 
005014 
011272 


012400 
176502 
000100 
000100 
011316 


010000 


017122 
017670 


001246 


176610 
176610 


001246 


001246 
177420 
177420 


173422 


D 4 
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SEQ 0042 


5 TERRA 


START CLUSTER TERMINAL #1 


5 TERRE RRR KEREKEEEKEEKKKEEK 


CLITST: TST 
BNE 


1$: 


4$: 


2$: 
3$: 


CLPRES :OPTION PRESENT? 

1$ sBR IF YES 
JMP DXTSTO 
BIT #4000, $DEVM :DROP ASYNC? 
BEQ 4$ : F NO 
BIC #<RTS'DTR>,AMRC :MUST BE TOGGLED 
BIS #<RTS'DTR>,AMRC :PRIME IT 
BIT #B1T12,$DEVM = : DROP _ TEST? 
BNE CL2TST “BR IF YES 
BIT #B1T0,$DEVM : TERM a SET FOR EXT LOOPBACK? 
MOV #<CT1!B2400!CHARB'MAINT>,PARAM :ELSE SET FOR INT LOOPBACK 
MOV #<CT1!B2400! CHARB>, PARAM :SETUP FOR EXT LOOPBACK 
JSR RS . SETVEC :SETUP INTERR VECTORS 

TK1SRV 
TP1SRV 
CLR T1CHR :CHAR TO BE XMITTED 
MOV TK1B, T1HLD sREAD CHAR (CLEAR STALE DATA) 
BIS #IE,TK1S =SET CLUSTER TERM #1 LOOSE! 
BIS #IE,TP1S 
JSR RS. TIMER :SEE IF T1ICHR GOES TO 377 
TCHR 

ERROR 34 :CLUSTER TERM 1 NOT RESPONDING 

CL2TST 
BIT #B1T12,aSWR :SKIP TYPEOUT IF NOT SET 
BEG CL2TST 
TYPE -CLT1 
TYPE ° RUN 


Ae EXERCISER 


VKDAB .P11 


—d aed 
00000 
Ww 


ARAN IS ORAS OR ORS STENTS 


DODOGOH 
N 
SANSSS 


032737 
001051 
032737 
001404 
012737 
000403 
012737 
004537 
000 


052737 


004537 
012500 
000377 
104035 
000410 
032777 


yd bh 30G6(1063) 
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020000 


000002 
055016 
055014 
011272 


012500 
176512 
000100 
000100 
011316 


010000 


017733 
017670 


001246 


061246 
177420 
177420 


012502 
176510 
176514 


173270 


17-NOV-78 
PROGRAM 


E 4 
10:00 PAGE 43 


FL ERK RARER REKKEKEEEKEEEREKEKEKEKRERREKEEKEEKEEEKEREKEEKEEREKEKKEE 


CL2TST: BIT 
BNE 


1$: 
2$: 


START CLUSTER TERMINAL #2 


FEAR EEEEKEKKEKEREEEEREREEERKEKEKKEKEEKEEEKEEKEEKEKKEE 
#81113, SDEVM 
CL3TST 

BIT _ #BIT1,$DEVM 
MOV _—-#<CT2!B2400! CHARBIMAINT> PARAM 


BR 
MOV #<CT2!B2400! CHAR8>, PARAM 
;SETUP INTERR VECTORS 


JSR R5,SETVEC 
TKEVEC 
TK2SRV 
TP2SRV 


T2CHR 
MOV TK2B, T2HLD 
BIS #IE,TK2S 
BIS #IE,TP2S 
JSR R5,TIMER 
ERROR 55 
BR CL3TST 
BIT #B1T12,aSWR 
CL3TST 


TYPE »CLT2 
TYPE »RUN 


;DROP TEST? 
BR IF 


YES 


; TERM #2 SET FOR EXT LOOPBACK? 


sELSE SET FOR INT LOOPBACK 
;SETUP FOR EXT LOOPBACK 


+ CHAR TO BE XMITTED 
sREAD CHAR (CLEAR STALE DATA) 
:SET CLUSTER TERM #2 LOOSE! 


sSEE IF T2CHR GOES TO 377 
sCLUSTER TERM 2 NOT RESPONDING 


;SKIP TYPEOUT IF NOT SET 


SEQ 0043 


a3 
' 


SEES RESRERCT 


E 
mM 


XERCISER 
11 17-NOV-78 


032737 
001051 


032737 
001404 
012737 
000403 
012737 
004537 


032777 
001404 


MACY11 30G(1063) 


10:00 


000004 
065016 
065014 
011272 


012600 
176522 


011316 


010000 


017144 
017670 


001246 


061246 
177420 
177420 


173136 
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F 4 
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5 FAA RAKRKKRRKEKRREKEKEREEEEEREKKEEKKKKEKEEKEKKEEKREEERKEKKEKEKEKEKKKEKEEEK 


; START CLUSTER TERMINAL #3 


5 CRAKEAR KKKKKEEKEKEKEKKKERKEKKKEKEKKEEKEKEEEKEKEEEEKE 


CL3TST: BIT #BIT14,$DEVM — ;DROP TEST? 
BNE DXTSTO “BR IF YES 
B17 #B1T2,$DEVM :TERM #3 SET FOR EXT LOOPBACK? 
MOV #<CT3!B2400!CHARB'MAINT>, PARAM :ELSE SET FOR INT LOOPBACK 
1$: MOV #<CT3!B2400! CHAR8>, PARAM :SETUP FOR EXT LOOPBACK 
2$: JSR RS, SETVEC :SETUP INTERR VECTORS 
TK3VEC 
TK3SRV 
TP3SRV 
CLR T3CHR :CHAR TO BE XMITTED 
MOV TK3B, T3HLD “READ CHAR (CLEAR STALE DATA) 
BIS MIE, TK3S “SET CLUSTER TERM #3 LOOSE! 
BIS #IE,TP3S 
JSR RS, TIMER :SEE IF T3CHR GOES TO 377 
13CHR 
ERROR 36 :CLUSTER TERM 3 NOT RESPONDING 
BR DXTSTO 
BIT #B1T12,aSWR :SKIP TYPEOUT IF NOT SET 
BEQ DXTSTO 
TYPE SCLT3 
TYPE * RUN 


SEQ 0044 


G 4 
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VKDAB.P11 17=NOV-78 10:00 PROGRAM SEQ 0045 
2021 FE Relalahehalalododabatas~inlabesabatelehabahobnbahedesotabesolalalatealalelelelaieiolaielolelaielotelaioleiaieieieiaioieteiaie 
$058 ; FILL & EMPTY BUFFER TEST 
2024 za FILL BUFFER COMMAND IS ISSUED WITH ALTERNATING ,WORDS OF ALL O°S & ALL 1°S. 
2025 AN EMPTY BUFF A COMMAND * ISSUED TO FILL ‘DOBUF' 

2026 “UPON COMPLET I DOBUF IS CHECKED FOR ALTERNATING WORDS OF ALL O'S & ALL 1°S. 
2027 : ERRORS IN THIS. TEST MAY. INDICATE CABLE CROSS-TALK INTERFERENCE. 
2028 ARIS IOISIIOIOIOIT IIIS III SIOIIIIOIOIIIO II DIOIIIOIOII III III IO 
2029 

Say 006014 005037 003120 DXTSTO: CLR DXTST 3:0 = DXTSTO 

2032 006020 032737 000400 001246 BIT #B1T8,$DEVM ;DROP DxXO TESTS? 

2033 006026 001404 BEQ 7$ ; F 

2034 006030 032737 001000 001246 BIT #B1T9,$DEVM ;DROP DX1 TESTS? 

ate 006036 001107 BNE DXTST1 ;BR IF YES 

2037 006040 004537 011600 7$: JSR R5,TIMER2 ;WAIT FOR DISK DONE 

2038 006044 177170 RXCS 

2039 006046 000200 DONE 

2040 006050 104075 ERROR 75 NO DONE 

Spee 006052 000474 BR 8$ EXIT 

oy 006054 012737 000017 i77170 MOV MINITAL,RXCS :D0 AN INITIALIZE COMMAND 
2045 006062 004537 011600 JSR R5,TIMER2 ;WAIT FOR DONE 

2046 006066 177170 RxCS 

2047 006070 000200 DONE 

2048 006072 104075 . ERROR 75 sNO DONE 

2049 006074 000463 BR 8$ 

2050 7FILL BUFFER 

2051 006076 012700 000100 MOV #100,R0 ;WORD CT 

2052 006102 005001 CLR R1 ; WORD 

2053 006104 012737 000001 177170 MOV #FBUF ,RXCS ; ISSUE FILL BUFF COMMAND 
2054 006112 010137 177172 1$: MOV R1,RXDB 

2055 006116 005101 COM R1 ; COMPLEMENT WORD 

2056 006120 5 DEC RO ;DONE ALL 100 WORDS? 

tet 006122 001373 BNE 1$ ;BR IF NO 

2059 006124 37 011600 JSR R5,TIMER2 ;WAIT FOR DISK DONE 

2060 006130 177170 RXCS 

2061 006132 000200 DONE 

2062 006134 104075 ERROR 75 ;NO DONE 

2063 006136 000442 BR 8$ EXIT 

2065 sEMPTY BUFFER 

2066 006140 012700 000100 MOV #100,R0 :WORD CT 

2067 006144 012701 002424 MOV #DOBUF ,R1 ;BUFFER ADDR 

2068 006150 012737 000003 177170 MOV #EBUF ,RXCS : ISSUE EMPTY BUFF COMMAND 
2069 006156 013721 177172 2$: MOV RXDB, (R1)+ :STORE WORD 

2070 006162 005300 DEC RO ; DONE ? 

2071 006164 001374 BNE 2$ :BR IF NO 


PDT-11 EXERCISER 
CVKDAB .P11 


004537 
177170 


000200 
104075 
000421 


127 
01362 
000405 


oo — 
Nm 
—© 


000137 
000000 
000000 
177777 


MACY11 30G6(1063) 
17=NOV-78 10:00 


011600 


002424 


906250 


006250 
006250 


002624 


010200 


177777 


H 4 
17=-NOV=78 10:00 PAGE 46 
PROGRAM 


3$: 


4$: 


R5,TIMER2 


E 
75 


8$ 


#DOBUF ,R1 
+ all mame 


76 


(R1)+,EBHLD 
5$ 


77 


R1,4DOBUF +200 


DXTST1 
EOP 


sWAIT FOR DISK DONE 


IF ZERO 
;WORD NOT ALL ZEROS 


sil ¥°S? 
;BR IF YES 

;WORD NOT ALL ONES 

sEND OF DOBUFF ? 

;BR IF NO 

;GO TO NXT TST 

sEXIT ALL DISK TESTS 

; STORAGE FOR ERROR REPORT 


sEXPECT O'S FOR ERROR REPORT 
sEMPECT 1°S FOR ERROR REPORT 


SEQ 0046 


PDT=11 EXERCISER 


C 


: 


MIMINININMIN NNN No NgNNyNyNgNnyNnyoNnyonyflfnynyfy 
NI OODNAMRWUMOSRURARALOS 


Nm 
—a> 
non 
GW 


VISGOVRARAN 


PURINININ NIN NNN NNNy 
aS ee ee ee ee ee ee | 
> 
ww 


2145 


VKDAB.P11 


012737 


7 
012737 


032737 
001031 


012737 
012737 


005737 
001404 
012737 
000403 
012737 


005037 
052737 


032737 
001031 


012737 
012737 


MACY11 30G6(1063) 
17=NOV-78 10:00 PR 


000001 


002406 
002656 


000400 
013074 
000200 
003134 
013566 
013212 
003122 
000100 
011402 


001000 


013074 
000200 


003120 


002410 


002660 
001246 


000264 
000266 


015174 


015174 
177170 


001246 


000264 
000266 


17-NOV-78 
OGRAM 


I_ 4 
10:00 PAGE 47 


CT RARER RRR ERERKEAEEKEEEEEEKEKKEEKEKEKEKEEKEKEKKEEEKEKEEKREEKEKEEKEEEEE 


START DXO & DX1 DATA PATTERN 


:EACH SECTOR ioe Dane WITH ITS TRACK & SECTOR ADDRESS AS DATA. 
SEACH TRACK IS READ & CHECKED BEFORE GOING TO THE NEXT TRACK. 
:DATA IS ~ ON a ert: ED BY 3 TO AVOID LATENCY TIMES. 


:1E: SECTOR 


HAVE ITS DATA BIT 15 SET TO Pie ated IT FROM DXxOQ. 


Tedodos L 
RRORS ARE THOSE. ERRORS AF 


,6.. 
TER $6'6 MORE RETRIES. 


; HARD E 
;1'ST PASS PERFORMED ON TRACKS 0-4, 40-44, 72-76(10) 
: SUBSEQUENT PASSES ON ALL TRACKS 


s eiaedadainaaenuedadantennnammsmmnniadiitiaidineieasl aaah 


DXTST1: 


12$: 


10$: 


2$: 


MOV 


#1 ,DXTST 


#1 ,DOSEC 
DIPAT 

DIERR 

DICERR 

#1 ,D1SEC 
#B1T8,$DEVM 
2$ 

ARXSRV ,RXVEC 
#209 ,RXVEC+2 
COMP2 


10$ 
SOORSEC BODES? 


#DOF BUF ,DODISP 
FIN 

#1E,RXCS 
PC,7TIMDO 

41 


#BiT9,$DEVM 
4$ 


ARXSRV ,RXVEC 


#200 ,RXVEC +2 


;1 = DATA PATT TESTS 
;STARTING TRACK 


; INIT DXO FLAGS 
; INIT DX1 FLAGS 


;DROP Dx0 TESTS? 
BR IF YES 


;SETUP VECTOR AREA 


‘Om If _— PASS 2? 
sELSE DO READS ONLY 
:DO NORMAL TESTING 


:DO DX1 WHEN SET 
:LET INTERRUPTS LOOSE! 


;DX0 NOT GETTING TRACK DONE FLAG 
;DROP DxX1 TESTS? 
:BR IF YES 


sSETUP VECTOR AREA 


SEQ 0047 


— 


T=11 


a 

meu 8S 
ee ee ee ee ee ee) 
ANISSELEALRAVISSRIKALANY B 


NIMINMIMPINININININININININyNNPNNgNNNery 


_— SS 
~S 
JAR 


ON 


POMOMIAININ APN IN INN NINN INNyY 
NN _— eS eS os SS Ss SS 
SLSSSLRILELLE 


RCISER 


MACY11 30G(1063) 
: PR 


17-NOV-78 10:00 


005737 
001404 
012737 
000403 
012737 


005037 
052737 


032737 
001007 
005737 
001004 
005737 
001706 
000717 
032737 
001007 


003134 
015352 
014776 
003122 
000120 
011476 


000400 
002400 
011474 


001000 
002650 
011564 


003132 
010200 
001176 


013202 


013202 
177170 


001246 


001246 


000004 


24 
002656 
003124 


000054 
002496 


002656 
003124 


3$: 


11$: 
8$: 


4S: 


S$: 


6$: 


13$: 


14$: 


17-NOV-78 
OGRAM 


J 4 
10:00 PAGE 48 


fo ee COMPAT PASS 2? 
ELSE. DO READ ONLY 


#D1FBUF,DIDISP :DO NORMAL TESTING 

FI *GO BACK TO DXO WHEN SET 
#<IE!DX1>,RXCS :LET INTERRUPTS LOOSE | 

PC, TIMD1 

42 :DX1 NOT GETTING TRACK DONE FLAG 
#BIT8,$DEVM''.. :DROP Dx0? 

5$ “BR IF YES 

SOPAT “ELSE IS DXO ALL DONE? 

5$ “BR IF .YES 

DOTMO = TIMEOUT?., 

1$ “BR IF NO’. 

7$ “ELSE CONT LAST. COMMAND 
#B1T9,$DEVM :DROP DXx1? MG, 

6$ “BR IF YES " 
DIPAT “ELSE IS DX1 ALL DONE? 

6$ “BR IF YES 

D1TMO = TIMEOUT? 

3$ “BR IF NO 

8 “ELSE CONT LAST COMMAND 
COMP1 : DOING COMPAT PASS 1? 

13$ F NO 

EOP “ELSE ALL DONE 

$PASS :1°ST PASS? 

DXTST2 :BR IF NO 

MAXTRK , :JUST DID 5 OUTER TRACKS? 
#40. ,DOTRK “ELSE SETUP FOR 5 MIDDLE TRKS 
#40.,D1TRK 

#44. -MAXTRK 

12$ :GO DO IT! 

MAXTRK #44. :JUST DID 5 MIDDLE TRACKS? 
DXTST2 “BR IF NO, MUST BE ALL DONE 
#72. ,DOTRK “ELSE SETUP FOR 5 INNER TRKS 
#72. .D1TRK 


#76. ,MAXTRK 
12$ :D0 IT! 


SEQ 0048 





2 Ag EXERCISER 


VKDAB .P11 


2203 


012737 
012737 


032737 
001041 
005037 
013737 
004737 
010137 
005237 
012737 
004737 
010137 


004537 
000753 


012737 


005037 
052737 


MACY11 30G(1063) 
17-NOV-78 10:00 


011072 
003124 

010770 
002406 
011072 
000032 
010770 
002410 
011754 


013566 
003122 
000100 


011402 


003120 
003124 


001246 


011074 


011074 


075174 


177170 


17-NOV-78 
PROGRAM 


K 4 
10:00 PAGE 49 


SERRE KEKE EKEEEKKKEKEEKKKKEKEKE 


START DXO & DX1 RANDOM SEEKS 
“ RANDOM SEEKS ARE PERFORMED ON EACH DISK. 


DATA itame & VERIFIED TO BE atten ie FROM RETR a TEST. 


E pee AFTER 10 MORE R 
OM SEEKS ON 1°ST 5 TRACKS. 


: SUBSEQUENT PASSES PERFORMS 500 RANDOM SEEKS BETWEEN ALL TRACKS. 


SERRE KKEEKKKEEKEEREKEKEKEKEREKREEEKEEEKEEEKEEEKEEKKEKEKEKKEKEK 


DxTST2: 


MOV 
MOV 


#2, DXTST :2 = RANDOM SEEK TESTS 
#4 “MAXTRK :INIT TO GO FROM TRKS 0-4 
DOERR : INIT DXO FLAGS 
DOCERR 
OCNT 
DIERR : INIT DX1 FLAGS 
DICERR 
DICNT 
#B1T8,$DEVM :DROP DxXO TESTS? 
2$ :BR IF YES 
LOLIM 
MAXTRK -HILIM 
R1,DOTRK :GET RANDOM TRACK # 
LOLIM 
#32,HILIM 
PC, RAND 
R1.DOSEC :GET RANDOM SECTOR # 
RS, CKOBAD :SEE IF THIS TRK/SEC FLAGGED BAD 
1$ “BR IF RETURN HERE 
#DORSEC ,DODISP :SET DISPATCH TABLE TO POINT TO 
READ SECTOR HANDLER 
FIN “DO DX] WHEN SET 
#IE.RXCS “LET INTERRUPTS LOOSE! 
PC, TIMDO 
41 :DXO NOT GETTING DONE FLAG 


SEQ 0049 


PDT-11 EXERCISER 
CVKDAB. 


P11 


17-NOV~-78 


032737 
001041 
005037 
013737 
004737 
010157 
005237 
012737 
004737 
010137 


004537 
000753 


012737 


005037 
052737 


032737 
001004 
023737 
001262 
032737 
001004 


023737 
001317 


005737 


4 
MACY11 30G(1063) 17=NOV-78 10:00 PAGE 50 
PROGRAM 


10:00 
001000 


011072 


011072 
000032 
010770 
002660 
012066 


015352 


003122 
000120 


011476 
000400 
002402 


001000 
002652 


003134 
010200 


001246 


011074 


011074 


913202 


177170 


001246 
003126 


001246 
603126 


2$: 


3$: 


4$: 


5$: 


é$: 


#B1T9,SDEVM 
4$ 

LOLIM 

MAXTRK ,HILIM 
PC ,RAN 
R1,D1TRK 
LOLIM 
#32,HILIM 

PC ,RAND 
R1,D1SEC 
R5,CK1BAD 

3$ 

#DIRSEC ,DIDISP 
FIN 
M<IE!DX1>,RXCS 
PC,TIMD1 

42 
iain 
DOCNT ,MAXSK 
1$ 
#BI1T9,$DEVM 
6$ 


DICNT ,MAXSK 
3$ 


COMP 2 
DXTST3 
FOP 


;DROP DX1 TESTS? 
BR IF YES 


;GET RANDOM TRACK # 


;GET RANDOM SECTOR # 


;SEE IF THIS TRK/SEC FLAGGED BAD 
;BR IF RETURN HERE 


oh DISPATCH TABLE TO POINT TO 
HANDLER. 


‘6 
[LET INTERRUPTS LOOSE ! 


;DX1 NOT GETTING DONE FLAG 


;DROP Dx0? 


:BR IF YES 
:DID ALL SEEKS? 
:BR IF NO 


;DROP Dx1? 


;BR IF YES 
;DID ALL SEEKS? 
;BR IF NO 


;DOING COMPAT PASS 2? 
:BR IF NO 


sELSE ALL DONE 


SEQ 0050 





bee EXERCISER 


VKDAB.P11 


2289 


17-NOV-78 1 


032737 
001062 


012737 


100001 
104063 


012737 
012737 
052737 
004737 


104056 
000240 


002414 
014632 
B51 
011402 
177170 


000001 


002404 
002414 
000001 


000001 
014046 


003122 
000100 


011402 


001246 


003120 


013174 


177170 


177172 


002406 
002470 


013174 


177170 


MACY11 30G6(1063) 
0:00 PR 


17-NOV-78 
OGRAM 


M 4 
10:00 PAGE 51 


Aten Pee RRR RRR RRR RRR RRRRRRRRRRRRRRRRERR SERRA RRR RRR RRS R RASS RSE SSS | 


INITIALIZE COMMAND TEST 


* THE INITIALIZE & EMPTY ae COMMAND IS _ ISSUED TO Dx0. 


DX 


C$: 


:DATA IS VERIFIED TO BE T 
;HARD ERRORS ARE 


TST3: BIT 
BNE 


HAT OF TRACK 1, SECTOR 1. 


THOSE ERRORS AFTER 10 MORE RETRIES. 
: "INIT* CANNOT BE ISSUED TO Dx1. 


J RARER ARAAAAAARERAAERAARARARAAKRARAARAEARARARAARRARAEAHARERERRKKEKEE 


#B1T8,$DEVM 
DXTST4 


#3 ,DXTST 

DOERR 

DOCERR 
#D0iNIT,DODISP 


FIN 

MIE ,RXCS 
PC,TIMDO 
46 
DXTST4 
RXCS 

1$ 

63 
#1D,RXES 
2$ 

55 

DOERR 
DOCERR 
#1 ,DOTRK 
#1 ,DOSEC 


#DOEBUF ,DODI SP 


FIN 

MIE ,RXCS 
PC, TIMDO 
56 


;DROP Dx0O TESTS? 

;BR IF YES 

33 = INIT TEST 

sFLAGS 

;SET DISPATCH TABLE TO GO TO INIT HANDLER 


;LET LOOSE 


;DXO HUNG ON INITIALIZE COMMAND 


; ERROR? 


:BR IF NO 

; INIT COMMAND ERROR 

; INIT DONE BIT SET? 
;BR IF YES 
; INIT DONE NOT SET 
sEXP TRK & SEC 
;SETUP DISPATCH TABLE TO 
sEMPTY BUFFER & VERIFY DATA 


;LET LOOSE 


;DxXQO HUNG ON EMPTY BUFF COMMAND 


SEQ 0051 





N 4 
10:00 PAGE 52 





Ore -11 EXERCISER MAC ¥Y11 30G(1063) 17-NOV-78 
VKDAB.P11 17-NOV-78 10:00 PROGRAM SEQ 0052 
$396 POUTTITITITITITILT TITTLE LITTLE TTT TTT TTT TTT TTT TTT TTT TTT TTT 
See5 ; RESTORE COMMAND TEST 
2340 -THIS TEST VERIFIES THAT THE RESTORE COMMAND CAN BE ISSUED 
2341 :10 DxO & DX1 & THAT NO ERRORS RESULT FROM IT 
23%42 PETE TITITITITITIL TITLE E LETT T TTT TTT LTT TTT TLL TTT TTT TTT Tie 
2343 
2344 007430 032737 000400 061246 DXTST4: BIT #8118, $DEVM :DROP DxO TESTS? 

3345 007436 001121 BNE pxTsT “BR IF YES 

2347 007440 012737 O 4 003120 MOV #4 .DXTST 74 = RESTORE TEST 

2348 007446 012737 014656 013174 MCV #DOREST,DODISP =SETUP DISPATCH TABLE 

2349 007454 005037 003122 CLR FIN 

$e20 007460 052737 000100 177170 BIS #IE,RXCS 

2352 007466 004737 011402 JSR PC, TIMDO ° 
2353 007472 104047 ERROR 47 :DxX0 HUNG ON RESTORE COMMAND 
$eee 007474 000431 BR 2$ 

2356 007476 005737 177170 TST RXCS 2 

2357 007502 1 BPL 1$ “BR IF 

$328 007504 104054 ERROR 54 :Dx0 RESTORE COMMAND ERROR 
2360 007506 005037 002406 1$: CLR DOTRK ;CHK FOR RECORD NOT FOUND (RN) 
2361 007512 012737 000001 002410 MOV #1,DOSEC ;SET TRK/SEC. SHOULD NOT MOVE 
2362 :LOGIC THINKS ITS ALREADY THERE. 
2363 007520 005037 002404 CLR DOERR 

2364 007524 005037 002414 CLR DOCERR 

2365 007530 005037 003122 CLR FIN 

2366 007534 012737 013566 013174 MOV #DORSEC,DODISP ;SETUP TO READ SECTOR 

tor 007542 052737 000100 177170 BIS MIE .RXCS :LET INTERR LOOSE 

2369 007550 004737 011402 JSR PC, TIMDO 

2370 007554 104041 ERROR 41 ;DX0 HUNG ON READ CMD 

$37) 75 000240 NOP 

2373 007560 032737 001000 001246 2$: BIT #B11T9.$DEVM :DROP DX1 TESTS? 

337% 007566 001045 BNE pxTsT§ “BR IF YES 

2376 007570 012737 014674 013202 MOV ADIREST,DIDISP ;REPEAT FOR Dx1 

2377 007576 005037 003122 CLR FIN 

$378 007602 052737 000120 177170 BIS M<IE'DX1>,RXCS [LET INTERR LOOSE 

2380 007610 004737 011476 JSR PC, TIMD1 

2381 007614 104042 ERROR 42 3DX1 HUNG ON RESTORE CMD 
Saae 007616 000431 DxTSTS 

2 384 7620 005737 177170 TS] RKCS : FRROR? 

2385 007624 1 BPL 3$ BR IF NO 

2386 007626 104074 ERROR 74 :DX1 RESTORE CMD ERROR 


PDT-11 2 aati 3 
CVK P11 17-NOV-78 1 


VKDAB .P 


032737 
001043 
012737 
005037 
005057 
012737 


005037 
052737 


004737 
104050 
000420 
012737 


005037 
052737 


004737 
104051 
000404 
005737 
100001 
104057 


MACY11 30G(1063) 17=-NOV-78 10:00 PAGE 8; > 
PROGRAM 


10:00 


002656 
000001 
002654 


003122 
015352 
000120 
011476 


000400 


000005 
002404 
002414 
0135212 
003122 
000100 
011402 
014712 
003122 
000100 
011402 


177170 


002660 


013202 
177170 


001246 


003120 


013174 


1771706 


013174 


177170 


3$: CLR 


D1TRK 

#1 ,DISEC 
DIERR 
DICERR 
FIN 


#D1RSEC ,DIDISP 
A<IE!DX1>,RXCS 


PC,TIMD1 
42 


sREAD TO CHECK FOR RNF 


;SETUP TO READ SECTOR 
sLET INTERR LOOSE 


;DX'1 HUNG ON READ CMD 


ST RRA KEKEKKREEKKEEKEKKKEKEEKKERKEEKKKKEKEEKKEKEKKKEEERERKREEKKKEE 


; WRITE SECTOR WITH DELETED DATA MARK TEST 
THIS a VERIFIES THAT THE WRITE DELETED DATA COMMAND CAN BE ISSUED 


:& THAT THE "DELETED DATA’ BIT 5 IS SET 


HARD ERRORS ARE THOSE ERRORS AFTER 10 MORE 


FREAK EKKEKEKKKEKEREKKEKREKEKEEKKEKEKEEEK 


DXTST5: BIT 
BNE 


#B1T8,$DEVM 
DXTST6 

#5 ,DXTST 

DOERR 

DOCERR 

#DOFBUF ,DODISP 


FIN 

#I1E,RXCS 
PC,TIMDO 
DXTST6 

ADOSTAT ,DODISP 


FIN 
#IE,RXCS 


PC, TIMDO 
51 
DXTST6 
RXCS 

+4 

57 


Ww 
© 


;DROP DxXO TESTS? 
BR IF YES 


;5 = WR DEL DATA TEST 


;SETUP DISPATCH TABLE 


;LET LOOSE 

;DXO HUNG ON WRITE DEL DATA CMD 
;SETUP DISPATCH TABLE 

;LET LOOSE 

;DX0 HUNG ON READ STATUS 


: ERROR? 
;BR IF NO 
sREAD STATUS ERROR 


IN RXCS AFTER READY IS RECV'D. 
RETRIES. 


SEQ 0053 


PDT-11 EXERCISER 
CVKDAB .P11 


010110 
010112 


010114 


—_ —23 2 —) —_) <add —_—, 


17-NOV-78 1 


032737 
001062 


ppm tpt 
2 ..’ —) — 
MPMnw 
| 
WG 
N 


2737 
012737 


005037 
052737 


104061 
000404 


MACY11 30G(1063) 17=NOV-78 10:00 PAGE Ne 
10: PROGRAM 


00 


011402 


000002 


177170 


010176 
010176 
0024 


06 
000033 
000033 


179176 
013174 


177170 


177172 


002410 
177174 


MAAR AAAAAAALAAALELALAAARALAALALEAAA SESS S ASSESSES ESA SSS ESSE SS 


Y INVALID ADDRESS TESTS 
“A WRITE SECTOR COMMAND IS ISSUED TO INVALID TRACK 115(8) 


:® RXCS IS CHECKED FOR THE INVALID ADDR BIT tase BE SET AFTER RDY. 


7H E ABOVE IS REPEATED FOR INVALID SECTOR 33(8) 
J ARERR CREAR EEEEEKEEKEKKEKKKEKKEKEERKEEKEKEKEKEKRKKEKEKEEKEKEEEREEKKKE 
DXTST6: BIT #B1T8,$DEVM :DROP DxO TESTS? 
BNE 4$ “BR IF YES 
CLR INVCT 
MOV #6,DXTST :6 = INV ADDR TESTS 
MOV #ii> DOTRK 
MOV DOSEC 
MOV #46403 ~RXSA : INVALID TRACK 
1$: MOV #DOINV,DODISP  ;SETUP DISPATCH TABLE 
CLR FIN 
BIS #IE.RXCS :LET LOOSE 
JSR PC, TIMDO 
ERROR 60 :DXO HUNG ON INVALID ADDR 
BR EOP 
BIT #INVADR,RXES — : INV ADDR BIT SET? 
BNE 2$ -BR IF YES 
ERROR 61 - INVALID ADDR BIT NOT SET 
BR 3$ 
2$: TST RXCS :ERROR BIT SET? 
BMI 3$ “BR IF YES 
ERROR 62 “ERROR BIT NOT SET 
z$: TST INVCT :DID WE JUST DO INV SECTOR? 
BNE 4$ ‘BR IF YES...DONE 
INC INVCT 
CLR DCTRK 
MOV #33,D0SEC 
MOV #33,RXSA : INVALID SECTOR 
BR 1$ “REPEAT FOR INVALID SECTOR 
4$: BR +4 
INVCT: 0 :0 = DOING INVALID TRACK 
-1 = DOING INVALID SECTOR 


SEQ 0054 


D 5 
PDT=11 EXERCISER MACY11 30G(1063) +7-NOV-78 10:00 PAGE 55 


CVKDAB.P11 17-NOV-78 10:00 PROGRAM SEQ 0055 
2488 SD IR EERE ERE REE EERE EERE EERE EERE RE 
2489 ; END OF PASS 
2490 SL RRR RE ERE REECE EEE 
2491 
2492 010200 005237 001176 EOP: INC SPASS ;PASS CTR 
2493 010204 104401 017764 TYPE ENDPAS 
2494 010210 013746 001176- MOV $PASS ,-(SP) : SAVE $PASS FOR TYPEOUT 
2495 010214 104405 TYPDS 3:G0O TYPE=-DECIMAL ASCII WITH SIGN 
2496 010216 104401 020001 TYPE —_,MSG1 
2497 010222 013746 025766 MOV TERR,-(SP) 3;SAVE TERR FOR TYPEOUT 
2498 010226 104405 TYPDS 3:GO TYPE=-DECIMAL ASCII WITH SIGN 
2499 010230 104401 020030 TYPE »MSG2 
2500 010234 013746 025770 MOV TSERR,=-(SP) ;ZSAVE TSERR FOR TYPEOUT 
2501 010240 104405 TYPDS 33G0 TYPE=-DECIMAL ASCII WITH SIGN 
2502 010242 104401 020064 TYPE »MSG3 
2503 010246 013746 025772 MOV PERR,-(SP) 3; SAVE PERR FOR TYPEOUT 
25046 010252 104405 ; TYPDS 32G0 TYPE=-DECIMAL ASCII WITH SIGN 
2505 010254 104401 020121 TYPE »MSG4 
2506 010260 013746 025774 MOV PSERR,-(SP) +s SAVE PSERR FOR TYPEOUT 
2507 010264 104405 TYPDS ;GO TYPE=-DECIMAL ASCII WITH SIGN 
2508 010266 104401 010336 TYPE »NULL sNULL CHAR 
2509 010272 012737 000114 003124 MOV #114 ,MAXTRK -FOR ALL SUBSEQUENT PASSES 
sory 010300 012737 000764 003126 MOV #500. ,MAXSK 
2512 010306 005737 003132 TST COMP 1 = COMPAT PASS 1? 

2513 010312 001407 BEQ 1$ IF NO 

2514 010314 104401 020350 TYPE , COMPAT ® DONE MSG 

2515 010320 000000 HAL T 

2516 010322 005037 003132 CLR COMP1 

2517 010326 005237 003134 INC COMP2 

$218 010332 000137 003732 1$: JMP LOOP ;REPEAT 

2520 010336 377 377 000 NULL: -BYTE <=-1,-1,0 sNULL CHAR STRING 
2521 010342 EVEN 


PDT-11 EXERCISER 


CVK 


DAB .P11 


010342 
010350 
0103556 
010362 
010366 
010370 
010374 


17-NOV-78 1 


012737 


012737 
005037 


ma cyY11 Te 


:00 


012142 
000200 
012150 


017776 
072150 
012150 


157776 
020000 


010766 
020000 
010746 
017314 
012150 
176500 
012150 


176520 
000010 
010742 
010742 
017102 
017334 


000006 
000006 


000004 
000006 


010766 
010446 


000004 


17-NOV-78 
PROGRAM 


E 


5 
10:00 PAGE 56 


.SBTTL PROGRAM SUBROUTINES 


SIZE: 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


7$: 


#INTSRV,ERRVEC =:SETUP TIMEOUT TRAP ADDR 
#200,ERRVEC+2 =:LOCKOUT INTERR 
INTFLG 
#17776.RO ;SIZE MEM. START WITH 4k 
INTFLG 
(RO) 
INTFLG :GOT TIMEOUT INTERR? 
‘+ -BR IF YES 
20.4157776 :DONE 28K MEM? 
#20000, RO :GO TO NEXT 4K 
RO.MAXMEM : SAVE 
#20000,MAXMEM :GO BACK TO LAST VALID BLOCK 
Ry sMULT BY 2 
MEMTBL-2(R1),3$ 
0 :MEM SIZE 
_MEM 
RO 
INTFLG 
#TK1S,RO :SETUP CLUSTER CSR ADDR 
(RO) “DARE IT TO TIMEOUT 
INTFLG “DID IT? 
6$ “BR IF 
RO. ATK3S “DID ALL 3 
“BR IF YES 
#10,RO “ELSE DO NEXT 
4$ 
CLPRES :OPTION PRESENT 
7$ “ALL 3 MUST RESPOND 
CLPRES :OPTION NOT PRESENT 
“CLOPT 
NOTPRES 
#ERRVEC +2, ERRVEC :RESET TMO VECTOR 
ERRVEC +2 


SEQ 0056 


PDT=11 EXERCISER 


CVK 


DAB.P11 


010546 
010550 


010554 
01 


010574 
010576 
0604 


010740 


17-NOV-78 


005000 
012701 
030137 

006 


016037 
104401 
000000 


104401 
000762 


017244 


032737 
001405 


104401 
104401 
000420 


012737 
37 


oS 


900002 


010616 


017647 


crt 30G6(1063) 


010606 


001246 


17-NOV~-78 
PROGRAM SUBROUTINES 


8$: 
9$: 


10$: 
11$: 


12$: 


13$: 


16$: 
17$: 


5 
10:00 PAGE 57 


RO 

#BIT7,R1 

R1,$DEVM ;DEVICE DROPPED? 

10$ -BR IF YES 

R1 

13$ ;BR IF ALL BITS TESTED 

#2,R0 ;ELSE BUMP INDEX 

8$ 

12$(RO),11$ 

0 ;DEVICE TO BE DROPPED 
DROP 

$ 

PRPRES 

PRPORT 

PRS ;SEE IF PRINTER ERR 
16$ ;BR IF NO 

#B113,$DEVM ;COMM PORT IN EXT LOOPBACK? 
15$ ;BR It YES 

»PRINT 

~NOTPRES 

17$ 


#<AMOD !B9600 ! OFAP.! CHAR8> , PARAM 
A<RTS'DTR>,AMRC ;MUST BE TOGGLED 


#<RTS!DTR>,AMRC 
PRS :NOW ANY ERRORS? 
BR IF 


14$ YES 
PRPORT 
PRPRE S 7PRINTER PRESENT 


PC 


SEQ 0057 


alee EXERCISER 


VKDAB.P11  17=NOV-78 
2621 

2622 010742 000000 
2623 010744 000000 
26% 010746 000000 
2626 010750 017253 
2627 010752 017257 
2628 010754 017263 
2629 010756 017270 
2630 010760 017275 
2631 010762 01730 
2632 010764 017307 
2633 

2634 010766 000000 
2635 

2636 

2637 

2638 

2639 

2640 

2641 010770 013700 
2642 010774 013701 
2643 011000 012702 
2644 011004 

2645 011006 006101 
2646 011010 005202 
2647 011012 001374 
2648 011014 063700 
2649 011020 005501 
2650 011022 063701 
2651 011026 0627 
2652 011032 005501 
2653 011034 06270 
2654 011040 01003 
2655 011044 010137 
2656 

2657 611050 042701 
2658 011054 020137 
2659 011060 103743 
2660 011062 020137 
2661 011066 101340 
2662 011070 000207 
2663 

2664 011072 000000 
2665 011074 000000 
2666 

2667 011076 176543 
2668 011100 123456 
2669 

2670 

2671 011102 123727 
2672 011110 001401 
2673 011112 104407 
2674 011114 000207 


rae OM 30G6(1063) 


10:00 


011100 


011076 
001057 


011076 


177400 
011072 


011074 


001210 000001 


G 
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PROGRAM SUBROUTINES 


CLPRES: 
PRPRES: 
PRPORT: 


MEMTBL : 


MAXMEM: Q 


5 


; CLUSTER an Fl = NON-ZERO 
;PRINTER PRESENT = NON-ZERO 
:1 = PRINTER ENABLED THRU LOOPBACK 


sMSG ADDRESSES 


;MAX MEMORY 


CT RARER EE ERK REE EEEE EEK EEKEEKREEAREEEKEERKKRE 


RANDOM NUMBER GENERATOR 


~ 
FT RARER RRR KK ERE AREER KEKKEEE 


RAND : 


1$: 


V HINUM.R1 
MOV #-7 Re 
ASL RO 
ROL R1 
INC R2 
BNE 1$ 


ADD H1057. RO 
ADD 57401, R1 

RO, LONUM 
MOV R1,HINUM 


BIC #177400,R1 
CMP R1,LOLIM 
RAND 


CMP R1,HILIM 
RAND 
RTS PC 


-WORD 1765435 
-WORD 125456 


: CMPB SENV,41 © 
BEQ 1$ 


CK SWR 
RTS PC 


sROTATE CARRY TO R1 

; DONE ? 

;BR IN NO 

:ADD NUMBER TO MAKE xX 129 


;ADD NUMBER TO MAKE X 129 


;ADD LO CONSTANT 
;ADD HI CONSTANT 


SCALE TO BE WITHIN LIMITS 
SAVE LO BYTE ONLY 


;BR IF N < LOLIM 


:BR IF N > HILIM 
sELSE EXIT WITH R1 = N 


sAPT? 
;BR IF YES 


Sn 


SEQ 0058 


5 
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CVKDAB.P11 17=NOV=78 10:00 ROGRAM SUBROUT! SEQ 0059 
2675 
2676 SERRE AREER ARERR EEK EKEKEEKEKKRKEEREKKEEKEKKEEEKE 
2677 : ROUTINE TO DISPLAY CURRENT DEVM & ALLOW OPERATOR TO INPUT NEW VALUE. 
2678 SERRE EEREKEKERKEKEKEKREKKEEKEEKKEEKEEKEKEEKEEKEEREKREEKKKEKKK 
2679 
2680 011116 020445 GT$DEV: TYPE DEVM sELSE SHOW CURRENT 
2681 011122 013746 001246 MOV $DEVM,-(SP) -; SAVE $DEVM FOR TYPEOUT 
2682 011126 104402 TYPOC -:GO TYPE=-OCTAL ASCII(ALL DIGITS) 
2685 011130 104401 025136 TYPE , SMNEW “GET NEW 
2685 011134 005046 1$: CLR ~(SP) :CLR CTR 
2686 011136 005046 CLR ~(SP) *CLR NEW DEVM 
2688 011140 105777 170000 2$: STB =—s-_ ASTKS :CHAR THERE? 
2689 011144 100375 BPL 2$ “BR IF NO 
2690 011146 117746 167774 MOVB  a$TKB,-(SP) “ELSE GET CHAR 
2691 011152 042716 177600 BIC #°C177, (SP) “MAKE IT 7 BIT ASCII 
2693 011156 021627 000015 3$: CMP (SP) #15 :<CR>? 
2694 011162 001013 BNE 7 =BR IF NO 
2695 011164 005766 000004 TST 4 (SP) “ELSE IS IT 1°ST CHAR? 
2696 011170 001403 BEQ 4$ “BR IF YES 
2697 011172 016637 000002 001246 MOV 2(SP),$DEVM “ELSE SAVE NEW DEVM 
2698 011200 062706 000006 4$: ADD #6, SP “RESTORE STACK 
2699 011204 104401 001165 S$: TYPE -$CRLF 
2700 011210 000002 6s: RTI 
2702 011212 004737 024236 7$: JSR PC, $TYPEC :ECHO CHAR 
2703 011216 021627 000060 CMP (SP) 460 “CHAR < 0? 
2704 011222 002420 BLT “BR IF YES 
2705 011224 021627 000067 CMP (SP) 467 CHAR >7? 
2706 011230 003015 BGT 9$ “BR IF YES 
2707 011232 042726 000060 BIC #60, (SP)+ :STRIP OFF ASCII 
2708 011236 005766 000002 TST 2(SP) *IS IT 1°ST CHAR? 
2709 011242 001403 BEQ $3 “BR IF YES 
2710 011244 006316 ASL (SP) ELSE SHIFT PRESENT CHAR 
2711 011246 006316 ASL (SP) MAKE ROOM 
erie 011250 006316 ASL (SP) SOR NEW ONE 
2714 011252 005266 000002 8$: TNC 2(SP) :KEEP CHAR CT 
2715 011256 056616 177776 BIS -2(SP), (SP) =SET IN NEW CHAR 
erie 011262 000726 BR 2$ “GET NEW ONE 
2718 011264 104401 001164 9¢: TYPE .$QUES : TYPE ?<CRLF> 
2719 011270 000747 BR é$ “DO ALL OVER 


*. 
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VKDAB.P11 17-NOV-78 10:00 PROGRAM SUBROUT I SEQ 0060 
2721 SRA RRR REE EEE EERE EEE EEE EERE REE 
2722 ;* ROUTINE TO SET 2 seers thaer INTERRUPT VECTORS 
2723 ;* 3 ARGUMENTS ARE PASSED RS: 

2724 ;* VECTOR ADDRESS 

2725 ;* INTERRUPT SERVICE ROUTINE ADDRESS FOR RECVR 

2726 ;* INTERRUPT SERVICE ROUTINE ADDRESS FOR XMITTER. 

2727 ** PRIORITY WILL BE SET TO DISABLE FURTHUR INTERR. 

2728 SLR REE RRR REE REE EEE EERE 
2729 

2730 011272 010046 SETVEC: MOV RO,-(SP) ; SAVE 

2731 011274 012500 (R5)+,R0 :GET VECTOR ADDR 

2732 011276 012520 MOV (R5)+, (RO)+ =PUT SERV itah ADDR THERE 
2735 011 012720 000200 MOV #26), (RO)+ ;DISABLE INTERR 

2734 011304 012520 MOV (R5)+,(RO)+ GET XMIT SERV ADDR NEXT 
2735 011306 012710 000200 MOV #200, (RO) 

2736 011312 012600 MOV (SP) +,RO ;RESTORE 

2737 011314 000205 RTS R5 

2738 

2739 

2740 

2741 

2742 

2743 CORI III IIIS III III IOI TOTTI TT tot tot tk tt tt h ttt 
2744 WATCHDOG TIMER TO +? ad DEVICES FROM ENTERING AN ENDLESS WAIT LOOP 
2745 ;RETURN IF TIMED OUT 

2746 RETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 

2747 DR II IORI TTR TTT TT RRR TT ITT TT TOT TTT TT TT TOTTI TTT RRR Kk 
2748 

2749 011316 012537 011376 TIMER: MOV (R5)+,FLGHLD ;GET FLAG 

te 011322 012537 011400 MOV (R5)+,CTHLD ;GET COUNT THAT FLAG SHOULD GO TO 
2752 011326 012701 000010 MOV #10,R1 

2753 011332 012700 177777 4$: MOV #-1,R0 

2754 011336 027737 000034 611400 1$: CMP @FLGHLD,CTHLD ;RESPOND ING? 

2755 011344 001411 BEQ 2$ ;BR If YES 

2756 011346 004737 011102 JSR PC, EXAMKB 

2757 011352 0053 DEC RO sELSE DEC gs ol i 

2758 011354 001370 BNE 1$ =BR IF NOT TIMED OUT 

2759 011356 005237 001200 INC $DEVCT 3FOR APT 

2760 011362 005301 DEC R1 

2761 011364 001362 BNE 4$ 

5706 011366 000402 BR +6 sELSE TIMED OUT 

2764 011370 062705 000004 2$: ADD #4 ,R5 ; JUMP OVER ERROR ON RETURN 

$oe2 011374 000205 RTS R5 - 

2767 011376 000000 FLGHLD: 0 sFLAG 

27 011400 000000 CTHLD: O ; COUNT THAT FLAG MUST REACH 


PDT-11 EXERCISER MACY11 

CVKDAB.P11  17-NOV-78 10:00 
2770 
2771 
2772 
2773 
2774 
2775 
2776 011402 005037 011474 
2777 011406 012737 000010 
2778 011414 012737 (177777 
2779 011422 005737 003122 
2780 011426 001015 
2781 011430 004737 011102 
2782 011434 005337 011470 
2783 011440 001370 
2784 011442 005237 001200 
2785 011446 005337 011472 
2786 011452 001360 
2787 011454 005237 011474 
2788 011460 02 
2789 
2790 011462 062716 000004 
2791 011466 000207 
2792 
2793 011470 000000 
2794 011472 000000 
2795 011474 000000 
279% 
2797 
2798 
2799 
2800 
2801 
2802 
2803 : 
2804 011476 005037 011564 
2805 011502 012737 10 
2806 011510 012737 177777 
2807 011516 005737 003122 
2808 011522 001015 
2809 011524 004737 011102 
2810 011530 005337 011470 
2811 011534 001370 
2812 011536 005237 001200 
2813 011542 005337 011472 
2814 011546 001360 
2815 011550 005237 011564 
e816 011554 02 
2818 011556 062716 000004 
2819 011562 000207 
2820 
2821 011564 009000 


J 5 
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PROGRAM 


SUBROUT I 


SERRA RARER KEKEKEEKEKEKEEKEEKEKEERKEKEKKEEEEKREKRKEEREKEE 


WATCHDOG TIMER TO PREVENT DXO FROM ENTERING AN ENDLESS WAIT LOOP 


ETURN 


2R IF TIMED OUT 
: RETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 


FERRARA KRERKEEEEKKEEKEEKEEKRKEKEKEKEE 


:SET FLAG 
; TIMED OUT 


;BUMP RET 


;1 = TIMEOUT OCCURED 


SARA EERE KKEEREKEKERKEKEKEEKEEREREKEKKEEKE 


“WATCHDOG ‘tude a DX1 FROM ENTERING AN ENDLESS WAIT LOOP 


TIMDO: CLR DOTMO 
011472 MOV #10,CTREG1 
011470 4$: MOV #-1,CTREG 
1$: TST FIN 
BNE 2$ 
JSR PC ,EXAMKB 
DEC CTREG 
BNE 1$ 
INC SDEVCT 
DEC CTREG1 
BNE 4$ 
INC DOTMO 
BR +4 
2s: ADD #4, (SP) 
RTS PC 
CTREG: OQ 
CTREG1: 0 
DOTMO: O 
RETURN IF T 
phe +4 IF NOT TIMED OUT & 
TIMD1: CLR D1TMO 
011472 MOV #10,CTREG1 
011470 4$: MOV #-1,CTREG 
1$: TST FIN 
BNE 2$ 
JSR PC, EXAMKB 
DEC CTREG 
BNE 1$ 
INC SDEVCT 
DEC CTREG1 
BNE 4$ 
INC D1TMO 
BR +6 
C$: ADD #4, (SP) 
RTS PC 
DITMO: O 


JUMP OVER ERROR 


CRAKEAR EKER EE 


7F INISHED? 
:BR IF YES 
E 


] 

] 
sELSE DEC CIR 
;BR IF NOT TIMED OUT 
sFOR APT 


43 FLAG 
;TIMED OUT 
;BUMP RET 


;1 = TIMEOUT OCCURED 


SEQ 0061 


PDT=-11 EXERCISER 
CVKDAB.P11 


oOo OO BOOOCOOCOOSoOoOoO Go 

cm el Dl ed ee eds ed 
RR KRRARARARARARA AD 
On 

SS Ww WwW ry SS 


—_—! awd 


OoooQ ooo 
sh abtatateat adabadad 


17-NOV-78 


MACY11 30G(1063) 


10:00 


177777 


011660 
011662 


000010 
177777 
011662 
011102 


001200 


000004 


002624 
002650 


003074 
003120 


000032 


K 5 
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PROGRAM SUBROUTINES 


FT REAR R ERR AEEKKEREEEEREKEKKEKEKREKEKEEKEEKKEKEEEEEEEKEEKEEEKREKRKKKKKEE 


GENERAL TIMER 


¢ 
5 TRAE EEKEKEKKKKKEEKKEKERKKEKEEKEREEEKEEEREREKEEKKEKE 


TIMER1: MOV #-1,RO 
DEC RO 
BNE oe 
RTS PC 


TOSIAAISIIOIIIIIOIOIDI III III IOISIIIISIUISIOIOIUIOIOIOIOIIOIIOI III II II I ITT I TI III E 
;WATCHDOG TIMER TO PREVENT DEVICES FROM ENTERING AN ENDLESS WAIT LOOP 
;RETURN IF TIMED OUT 

;RETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 


fC AERA EERE EEEREEKS RHKKKKKEKEEKKEKEKEKKEKEKEKEERKEKEKKKEEEEKEK KH 


TIMER2: MOV (R5)+,REGHLD :GET REG 
MOV (R5)+,BITHLD ;GET BIT TO BE TESTED 
MOV #19.R1 
4$: MOV #=-1 RO 
1$: BIT BITHLD,@REGHLD ;BIT THERE? 
BNE 2$ ;BR IF YES 
JSR PC ,EXAMKB 
DEC RO ;ELSE DEC COUNTER 
BNE 1$ ;BR IF NOT TIMED OUT 
INC SDEVCT sFOR APT 
DEC R1 
BNE 4$ 
+6 sELSE TIMED OUT 
2$: ADD #4,R5 ; JUMP OVER ERROR ON RETURN 
RTS 5 
REGHLD: 0 sDEVICE REG 
BITHLD: 0 :DEV REG BIT TO BE TESTED 


wet SA2A2222 RRR ESSERE SARRRRSASSESASALASASAL ESSERE SSS SESS SSS E SESE SS 


=ROUTINE TO CLEAR BOTH BAD TRACK/SECTOR TABLES 


CT RRR EEEEKEER EE REKERKEKEKEEKEKEKKKEEEKEEKKKEEEEREEKEKEEKEKKEEK 


CLRBAD: MOV #DOBAD , RO 

1$: CLR (RO) + 
CMP RO,ADOBAD+20. 
BNE 1$ 
MOV #D1BAD,RO 

2$: CLR (RO) + 
CMP RO,ADIBAD+20. 
BNE 2$ 
RTS PC 


SEQ 0062 


5 
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VKDAB .P11 17-NOV-78 10:00 PROGRAM SUBROU — §EQ 0063 
2876 SRR REE ERE EERE EER ERE 
2877 :LoAD DXO BAD TRACK/SECTOR TABLE 
2878 IRIE IUIUIUI IIIT IIOIOIII IIIS III IIIT TOIT itt 
2879 
Sant 011716 010046 LDOBAD: MOV RO,-(SP) ; SAVE 
2882 011720 012700 002624 MOV #DOBAD , RO 
2883 011724 005710 1$: TST (RO) sENTRY PRESENT? 

2884 011726 001003 BNE 2$ ° IF YES 

2885 011730 013710 177174 MOV RXSA, (RO) sELSE STORE BAD RXSA IN TABLE 

Saat 011734 000405 BR 3$ sEXIT 

2888 011736 005720 2$: TST (RO) + ;BUMP PTR 

2889 011740 020027 002650 * (MP RO ,ADOBAD+20. sAT END OF TABLE? 

2890 011744 001367 BNE 1$ IF NO 

2891 011746 104104 ERROR 104 :10 BAD SECTORS...REPLACE 

2892 011750 012600 5$: MOV (SP)+,RO RESTORE 

2893 011752 000207 RTS PC 

2894 

2895 

2896 

2897 

2898 

2899 SOROS IIIDIDIOIOIOIIOIOIUIOIDIXIDIDIDIDIOIOISISIOIIDIOIIOIUIOIOIUIOIIISISIDIUIIIIIUIDOIIOII IDI 
:CHECK DXO BAD TRACK/SECTOR TABLE BEFORE DOING RANDOM SEEKS. 

2901 ;IF TRK/SEC IN TABLE, RETURN TO RE=CALCULATE NEW TRACK & SECTOR. 

2902 SURI IO I IOOIDIO ICIS ISI ISIS ISO UIIOIOIIOI UICC IOI ITI IO IDE 

2903 

2904 011754 010046 CKOBAD: MOV RO,-(SP) ; SAVE 

2905 011756 010146 MOV R1,-(SP) 

2907 011760 0135701 002406 MOV DOTRK ,R1 

2908 011764 009301 SWAB R1 

3544 011766 053701 002410 BIS DOSEC,R1 

2911 611772 012700 002624 MOV 4DOBAD ,RO 

2912 011776 020027 002650 1$: CMP RO,ADOBAD+20.  ;END OF TABLE? 

29135 012002 001405 BEQ 2$ :BR IF YES 

2914 O12 005710 TST (RO) sELSE ANY ENTRY? 

2915 O12 001405 BEQ 2$ :BR IF NO 

2916 012010 022001 CMP (RO) +,R1 :ELSE COMPARE? 

2917 012012 001371 BNE 1$ ;BR IF NO 

44 012014 000402 BR 3$ ;ELSE DONT BUMP RET ADDR 

2920 012016 062705 C00002 2$: ADD #2,R5 ;BUMP RET ADDR 

2921 012022 012601 3$: MOV (SP)+,R1 ;RESTORE 

2922 012024 012600 MOV (SP)+,RO 

2925 012026 000205 RTS RS 


5 

T-11 EXERCISER vy th a 17-NOV-78 10:00 PAGE bd 
VKDAB.P11 17=NOV-78 10:00 PROGRAM SUBROUTINES SEQ 0064 
2924 SERRATE ERR REE RRRERRER ERE 
2925 :Loap DX1 BAD TRACK/SECTOR TABLE 

2926 SRR EERE EERE EREERRRERREREERERRRER RE 
2927 

5359 012030 010046 LD1BAD: MOV RO,-(SP) 3 SAVE 

2930 012032 012700 003074 MOV #D1BAD ,RO 

2931 012036 005710 1$: TST (RO) sENTRY PRESENT? 

2932 012040 001003 BNE 2$ ; F YES 

2933 012042 013710 177174 MOV RXSA, (RO) ;ELSE STCRE BAD RXSA IN TABLE 
ate. 0120466 000405 BR 3$ sEXIT 

2936 012050 005720 2$: TST (RO) + ;BUMP PTR 

2937 012052 020027 003120 CMP RO,ADIBAD+20. ;AT END OF TABLE? 

2938 012056 001367 BNE 1$ “BR IF NO 

2939 012060 104105 ERROR 105 310 BAD SECTORS...REPLACE 

2940 012062 012600 3$: MOV (SP)+,RO “RESTORE 

2941 012064 000207 RTS PC 

2942 

2945 

2944 

2945 

2946 

2947 RARER EERE EEE EERE REE REE ERA AREER REE EE ERR 
2948 > CHECK DX1 BAD TRACK/SECTOR TABLE BEFORE DOING RANDOM SEEKS. 

2949 ;IF TRK/SEC IN TABLE, RETURN TO RE=CALCULATE NEW TRACK & SECTOR. 
2950 + RRRRERRR RRR R ERE ERRE REE EREER RARER EERE ERR EERE EERE ER 
2951 

2952 012066 010046 CK1IBAD: MOV RO,-(SP) ; SAVE 

So27 012070 010146 MOV R1,-(SP) 

2955 012072 015701 002656 MOV DITRK,R1 

2956 012076 000301 SWAB R1 

sel 4 012100 053701 002660 BIS DISEC,R1 

2959 012104 012700 003074 MOV #D1BAD ,RO 

2960 012110 020027 003120 1$: CMP RO,AD1BAD+20. ;END OF TABLE? 

2961 012114 001405 BEQ 2$ “BR IF YES 

2962 012116 005710 TST (RO) sELSE ANY ENTRY? 

29635 012120 001403 BEQ 2$ :BR IF NO 

2964 012122 022001 CMP (RO)+,R1 ;ELSE COMPARE? 

2965 012124 001371 BNE 1$ “BR IF NO 

Sco 012126 000402 BR 3$ Z;ELSE DONT BUMP RET ADDR 

2968 012130 062705 0060002 2$: ADD #2,R5 ;BUMP RET ADDR 

2969 012134 012601 3$: MOV (SP)+,R1 ;RESTORE 

2970 0121356 012600 MOV (SP)+,RO 

2971 012140 000205 RTS R5 





PLT-11 EXERCISER 
CVKDAB.P11 


=f 


SSsess 
MEW —© 


012274 
012276 
012500 
012502 
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005237 
000002 
000000 


013737 
005737 
100002 
104007 
000002 


013737 


-y9 8 A 30G6(1063) 


10:00 


012150 


177514 
012302 


012276 
012276 


012276 
012276 
012276 


000012 
000040 


000015 
012300 
0012C0 


012302 


177516 
000015 


000012 
000176 


012276 
012276 
012276 
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INTERRUPT HANDLER 


-SBTTL INTERRUPT HANDLERS 
LRA R ARR AERA AERA ERERERERRRERRERERRERRER EERE REE REE REE 


; GENERAL SERVICE ROUTINE TO BUMP 'INTFLG' 
; CALLING ROUTINE WILL KNOW WHAT TO DO 


SRR A ARERR EREREERRERERRRREREREEER EER EERE EERE RRR E ERE 
INTSRV: INC INTFLG 
RT] 


INTFLG: O 


zg REET RARREAAKREAREARARARAERARARERERERAERRARAEEEREREKRREERERKEEE 


:PRINTER INTERRUPT HANDLER: VALUES FROM 40 THRU 176. 
+B RAERAAAAARAARARAAAAEAARARAERARH) RARARARARAARRAAERAREARAAREKREEEEREE EE 
PRSRV: MOV PRS, SPRS : STORE 
TST SPRS > ERROR? 
BPL 1$ -BR IF NO 
ERROR 7 “PRINTER STATUS ERROR 
RTI 
1$: MOV PRCHR,PRB :EL SE PRINT CHAR 
CMP PRCHR,ACR T DID CR? 
BEQ 2$ ‘aR IF YES 
CMP PRCHR,ALF :JUST DID LF? 
BEQ 3$ “BR IF YES 
CMP PRCHR #176 : JUST DID LAST CHAR? 
BEQ 4$ :BR IF YES 
INC PRCHR :ELSE BUMP CHAR FOR NEXT INTERRUPT 
BR 5$ “EXIT 
2$ MOV LF .PRCHR :DO LF NEXT 
3% MOV #40 PRCHR :DO SPACE NEXT 
4% MOV #CR.PRCHR :DO CR NEXT & START OVER 
INC LINC? 
INC $DEVCT :FOR APT 
5$ RTI 
PRCHR: 0 = CHAR 10, BE PRINTED 
LINCT: OQ “LINE 
SPRS: 0 : STORE  ORINTER CSR 


SEQ 0065 


PDT=17 
C 


VKDAB.P11 


012376 


012400 
012402 


012404 
012412 
012420 


012422 
012430 
012436 
012440 


012442 


012476 


012500 
012502 


LXERCISER 


042737 
013737 
000002 


013737 


042737 
013737 
000002 


013737 


MACY11 30G6(1063) 
17=-NOV-78 10:00 


176504 
176506 


012402 
012400 


000377 


176504 


176514 


17-NOV-78 10: 
INTERRUPT HANDLERS 


, RRA KAAKKRARKK 


B 6 
00 PAGE 66 


ASS ASAARAARAAAAAALERALASALAS ALAS AEE SSS SS SS 


: CLUSTER TERMINAL #1 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


s REAR ARKKRKEEEER 


TPISRV: BIC 
MOV 
RTI 
TKTSRV: MOV 
CMP 
BEQ 
ERROR 
1$: CMP 
BEQ 
INC 
BR 
2$: CLR 
INC 
3$: BIS 
RTI 
TICHR: O 
TIHLD: O 


{AERA EKEKK 


ASS SRAAAASALAAALASLAAL AALS AS ESAS ASL SEES LAS SS 


#IE,TP1S sDISABLE INTER, RECV'R WILL TURN BACK ON 
TICHR,TP1B ;PRINT CHAR 
TK1B,T1HLD : STORE CHAR 
TIHLD,T1CHR ; OK? 
1$ :BR IF YES 
10 ;CHAR COMP ERROR 
T1CHR 4377 ;LAST CHAR? 
2$ :BR IF YES 
T1CHR sELSE BUMP 
3$ 
T1CHR ;START OVER 
SDEVCT sFOR APT 
#IE,TPIS sALLOW PRINTER INTERR 
sCHAR TO XMITT 
:REC'D CHAR 


KRREKKKEEKEKEKEEKKKKEKKEKKKEKEKKEREAEKEKEKEEKEREKEKEKREKKEKEEKEK 


: CLUSTER TERMINAL #2 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


{RAE KKKRKKKKKK 


TP2SRV: BIC 
MOV 


RTI 
TK2SRV: MOV 
CMP 
BEQ 
ERROR 
1$: CMP 
BEQ 
INC 
BR 
2$: CLR 
INC 
3$: BIS 
RT] 
T2CHR: O 
T2HLD: 0 


LASALASRAARAASAAAASASALASSASARAAALAASLALS ASSESS LASSE S & | 


#IE,TP2S Til hada RECV'R WILL TURN BACK ON 


T2CHR, TP2B s;PRINT 

TK2B, T2HLD ;STORE CHAR 
T2HLD, T2CHR 70K? 

1$ 3;BR IF YES 

17 ;CHAR COMP ERROR 
T2CHR 4377 ;LAST CHAR? 

2$ “BR IF YES 

T2CHR *ELSE BUMP 

3$ 

T2CHR sSTART OVER 
SDEVCT : APT 

#17 ,TP2S s;ALLOW PRINTER INTERR 


sCHAR TO XMITT 
:REC'D CHAR 


SEQ 0066 


PDT=11 EXERCISER 
C 17-NOV-78 


VKDAB.P11 


3105 


SOBVAARWNASSRUE 


WWININIWNININNIWN AWN AWNWAIWNW 
ce ee ce ee ae ce ce ee ed ee cee eed eh eed 


N 
awd 


012576 


012600 
012602 


012604 
012612 
012620 


012622 


012656 
012660 
012664 
012670 
012676 


012700 
012702 


042737 
013737 
000002 


013737 
023737 
001401 
104012 
023727 

3 


042737 
013737 
000002 


013737 


0 
005237 
000404 


vnyg 4 306(1063) 


10:00 


000100 
012600 


176522 
012602 


012600 
012600 


012600 
001200 
000100 


000100 
012700 


176612 
012702 


012700 
012700 


176524 
176526 


012602 
012600 


000377 


176524 


176614 


C_ 6 
17-NOV-78 10: e PAGE 67 
INTERRUPT HANDLE 


eC rre tire erie iii iii iiiiiiiiiiiititiiitii tt 
: CLUSTER TERMINAL #3 INTERRUPT HANDLER: LOCP VALUES 0 THRU 377. 


SERRE RAKEAEKEEERKEEREREKAEKEEKEEKKEKEKKERAEKEKEEKREEKEEKEEEEEKEEREKEKEEEEEREE 


TP3SRV: 


TK3SRV: 


1$: 


2$: 
3$: 


T3CHR: 
T3HLD: 


SERRE KEKKEEEKREREKKEKEKEKKEKKEEKEEKEKKKEKEKEKEREEKKEKEKEEKEKEKKEKEEKKEKE 


ZASYNC COMM PORT INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


FREAK EEEKEEKEKKKKKKEKKKREEEEEKKEKEERKKEEKEKEEEKEREEKKEK 


AMXSRV : sDISABLE INTER, RECV'R WILL TURN BACK ON 
XMITT CHAR | 


AMRSRV: 


1$: 


3$: 


COMCHR: 
COMHLD: 


BIC 
MO 


BIC 
MOV 
RTI 


#IE,TP3S 


T3CHR, TP3B 


TK38, T3HLD 


TSHLD, T3CHR 


3 


T3CHR 4377 
2$ 


T3CHR 
3$ 


T35CHR 
SDEVCT 


#IE,TPS3S 


-AMXC 


MIE 
COMCHR , AMXB 


AMRB , COMH 
COMHLD . COMCHR 


13 


COMCHR , #377 
2$ 


COMCHR 
3$ 


COMCHR 
SDEVCT 


#1i ,AMXC 


LD 


STORE CHAR 


sDISABLE INTER, RECV'R WILL TURN BACK ON 
PRINT CHAR 


:0K? 
;BR IF YES 


;CHAR COMP ERROR 


;LAST CHAR? 
;BR IF YES 


;START OVER 
:FOR APT 
;ALLOW PRINTER INTERR 


;STORE CHAR 
30K? 


-CHAR TO XMITT 
:REC'D CHAR 


E BUMP 


*BR IF YES 


;CHAR COMPARE ERROR 


;LAST CHAR? 
;BR IF YES 


ELSE 


BUMP 


J hag OVER 
FOR APT 


“ALLOW XMIT INTERR 


7XMIT CHAR 
:REC'D CHAR 


SEQ 0067 


D 6 
10:00 PAGE 68 


PDT=11 EXERCISER MACY11 30G6(1063) 17-NOV-78 

CVKDAB.P11 17-NOV=78 10:00 INTERRUPT HANDLERS SEQ 0068 
2158 SAREE EERE REE ER 
3124 SYNC COMM PORT INTERRUPT HANDLER: LOOP VALUES 27 THRU 377. 
3125 REAR REKERE EERE EEE EEE EEKEEEKK A KERR 
3126 
3127 012704 042737 000100 6624 SMXSRV: BIC #1IE,SMXC tk a INTER, RECV’R WILL TURN BACK ON 
3128 012712 013737 012700 176626 MOV COMCHR , SMXB :XMITT CHAR 
3129 012720 023727 012700 000377 CMP COMCHR , #377 :LAST CHAR? 
aie 012726 1020 BNE 2$ ;BR IF NO 
3132 012730 005737 012772 TST LSTCHR 
3133 012734 001010 BNE 
3134 012736 5237 012772 INC CHR 
3135 012742 052737 100 176624 BIS MIE ,SMXC sALLOW RDY INTR SO CAN SHUT DOWN FAST 
3136 012750 5237 001200 INC $DEVCT :FOR APT 
EL 012754 000002 RT] 
3139 012756 042737 000020 176624 1$: BIC ASEND , SMXC sNO MORE TO SEND 
3140 012764 005237 001200 INC SDEVCT FOR APT 
ap 012770 000002 2$: RT] 
Sez 012772 000000 LSTCHR: 0 ;SET WHEN LAST CHAR XMIT 
3145 
3146 
3148 
3149 012774 013737 176622 012702 SMRSRV: MOV SMRB , COMHLD sSTORE CHAR 
3150 015002 123727 012702 000026 CMPB COMHLD , #026 s IGNORE SYNC CHARS 
3151 013010 001430 BEQ 4$ 
3152 013012 023737 012702 012700 CMP COMHLD,COMCHR ;0K? 
3153 015020 001401 BEQ 1$ ;BR IF YES 
Sie 0135022 104014 ERROR 14 ;CHAR COMPARE ERROR 
3156 013024 023727 012700 000377 1S: CMP COMCHR , #577 sLAST CHAR? 
3157 013032 001403 BEQ 2$ ;BR_IF YES 
3158 013034 005237 012700 INC COMCHR sELSE BUMP 
zh 013040 000411 BR 3$ 
3161 013042 012737 177777 012700 2%: MOV #~1 , COMCHR : INDICATE DONE 
3162 0135050 042737 000100 176620 BIC #IE,SMRC sALL DONE 
3163 013056 005237 001200 INC SDEVCT 
ee: 13062 000403 BR 4$ 
3166 013064 052737 000100 176624 3$: BIS #IE,SMXC sALLOW XMIT INTERR 
Tye4 013072 000002 4$: RTI 


E 6 
PDT-11 EXERCISER MACY11 30G(1063) 17=NOV-78 10:00 PAGE 69 


CVKDAB.P11 17=NOV-78 10:00 INTERRUPT HANDLERS SEQ 0069 
3169 
3179 a Le Sa ae ema 
3171 DISK INTERRUPT HAND 
3172 “ALL DISK INTERRUPTS ENTER THRU RXS RXSRV ¥ DISPATCH TO THE 
3173 sCURRENT SERVICE ROUTINE POINTED TO BY: 
3174 ; DODISP FOR DXO INTERRUPTS 
3175 DIDISP FOR DX1 INTERRUPTS 
3176 WILL GENERALLY BE IN THE ORDER OF SERVICE ROUTINES BELOW. 
3177 SAREE RRR ERE EERE EKER EK 
3178 
3179 013074 105737 177170 RXSRV: TSTB RXCS ;CONTR RDY? 
3180 013100 100413 BMI 1$ ;BR IF YES 
3181 013102 013737 177170 013204 MOV RXCS,SRXCS sELSE SAVE FOR ERROR TYPEOUTS 
3182 012110 013737 177%72 013206 MOV RXES,SRXES 
3183 013116 013737 177174 013210 MOv RXSA,SRXSA 
3184 013124 104015 ERROR 15 ;UNEXPECTED INTERRUPT 
elas 013126 000002 RTI ;GO BACK 
3187 013130 005737 177170 1$: TST RXCS 7 ERROR? 
Ye 013134 100011 BPL 2$ ;BR IF NO 
3190 013136 013737 177170 013204 MOV RXCS,SRXCS sELSE SAVE FOR ERROR TYPEOUTS 
3191 013144 013737 177172 013206 MOV RXES,SRXES 
2136 013152 013737 177174 013210 MOV RXSA,SRXSA 
3194 013160 032737 000020 177170 2$: BIT MUSEL .RXCS ;CHECK UNIT SELECT BIT 
Slog 013166 001003 BNE DIINT ;BR IF INTER FROM Dx1 
3197 013170 000177 000000 JMP aDODISP sELSE DISPATCH TO DXO SERVICE ROUTINE 
Zo5 013174 000000 DODISP: 0 
3200 013176 000177 000000 DIINT: JMP @aDiDISP ;DX1 INTERRUPT DISPATCH 
3201 013202 000000 DIDISP: 0 
3202 
3203 
3204 013204 000000 SRXCS: 0 ; SAVE RXCS 
3205 013206 000000 SRXES: QO > SAVE RXES 
3 C13210 000000 SRXSA: 0 ; SAVE RXSA 


PDT=11 
C 


ge 


RORORORORORSRORORS 
ee cD cD ce ee ced eed ed ceed 
OOONAOULS WOW” 


3219 


E 
- 


XERCISER 
11 17-NOV-78 1 


013254 


013256 


013330 


012703 
013701 
000 


013701 
000301 


os 


£00 


177172 


003120 
000115 
000105 


CY11 30G6(1063) 


013174 
000005 


177170 
177170 


F 6 
17-NOV-78 10:00 PAGE 70 
INTERRUPT HANDLERS 


Cn 


; HANDLER TO FILL THE DRIVE BUFFER FOR Dx0 
:@ POINT TO THE WRITE SECTOR HANDLER. 


SERA ARR KEKAEREAEEEEEKEEEEEKEKEEEEEKRKEEEEKEEEEEEREEREKEEREH 


DOF BUF: MOV #100,R3 ;WORD CT 
MOV ym R1 
SWAB 
BIS HOSEC.R 
MOV #D0wS SEC. DODISP ;POINT TO WRITE SECTOR AFTER RTI 
MOV #<FBUF ! TE>,RXCS oi? FILL BUFFER CMD 
1$: MOV R1,RXDB FILL ENTIRE SECTOR WITH ITS ADDRESS 
DEC R3 
BNE 1$ 
RTI 


5 REAR R ER E RK REE EEK REE KKEKKEKEKEKKEKEKRKEERERKEKEEKEKEREKEKEEKEEE 


;HANDLER TO WRITE THE SECTOR FOR DXO & POINT TO WRITE CHECK. 


5 ARR ERAEKEKEKEKREKEKKEEKEEEEEEEKEKKEAKKEEEKEAKEKAEREEKERERRERAREKEEEK KEKE 


DOWSEC: MOV + eee R1 
SWAB 


BIS HOSEC, R1 

MOV R1,RXSA ;LOAD TRACK & SECTOR ADDR 

MOV #DOWCHK ,DODISP ;POINT TO WRITE CHECK HANDLER 
CMP gars! 


BNE 
+44 eateries sONLY FOR WRITE DELETED DATA TEST 
x: “4 A<WSEC!IE>,RXCS ;1]SSUt WRITE SECTOR COMMAND 


SEQ 0070 


PDT=11 EXERCISER TO CY11 30G(1063) 17-NOV-78 10: oe PAGE $° 


CVKDAB.P11 17=NOV-78 10:00 INTERRUPT HANDLER SEQ 0071 
3245 5H Re BH eR BI HA He TI BH TT TO ITT TOIT TTT TOTTORI TIER Ik 
3246 HANDLER TO WRITE CHECK ON DXO. 

3247 sWILi + TO FILL BUFFER 10 DO SAME SECTOR ON SOFT ERROR 

3248 ;OR NEXT SECTOR ON NO ERROR OR HARD ERROR. 

3249 ;WILL GO TO READ SECTOR AFTER ALL SECTORS ON TRACK ARE WRITTEN. 
3250 ZA RESTORE IS PERFORMED AFTER ANY SEEK ERROR (RNF). 

3251 ieekhaaeasninuhamaesstannnancemntansebeonannassaeeinniaianel 
3252 

3253 013332 005737 177170 DOWCHK: TST RXCS ee 

3254 013336 100024 BPL 1$ BR IN NC 

3255 013340 023727 002404 000012 CMP DOERR .#10. :70 ERRORS? 

3256 013346 001072 BNE 6$ ;BR IF NO er AGAIN 

3257 013350 004737 011716 JSR PC ,,LDOBAD ;LOAD BAD TRK KISEC TABLE 

3258 013354 032737 000020 013206 BIT ARNF ,SRXES :SEEK ERROR? 

3259 013362 001410 BEQ 7$ BR IF Pex 

3260 013364 104064 ERROR 64 to" K ERROR WRITE SECTOR 
3261 013366 012737 013444 013174 MOV 42% ,DODISP 0 TO 5s AFTER RESTORE 

3262 013374 012737 000117 177170 MOV #<RESTOR' 1E>,RXCS 

ser 013402 000002 RTI 

3265 013404 104016 7$: ERROR 16 : sHARD ERROR WRITE SECTOR 

35e9 013406 000416 BR 2$ ;GO TO NEXT SECTOR 

3268 013410 005737 002404 1$: TST DOERR 7 ANY ; oo ERRORS? 

3269 013414 001413 BEQ 2$ F NO 

3270 013416 005237 025770 INC TSERR :TOTAL SOFT ERR CT 

3271 013422 005237 025774 INC PSERR :PASS SOFT ERR CT 

3272 013426 032737 000020 013206 BIT ARNF , SRXES ;SEEK ERROR? 

3273 013434 001402 BEQ 8$ ;BR IF NO 

3274 013436 104065 ERROR 65 ;SOFT SEEK ERROR WRITE SECTOR 
3275 013440 000401 BR 2$ 

$559 013442 104017 8$: ERROR 17 ;SOFT ERROR WRITE SECTOR 

3278 013444 005037 002404 2$: CLR DOERR 

3279 013450 023727 002410 000031 CMP DOSEC ,431 ;LAST ODD SECTOR? 

3280 013456 001004 BNE 3$ :BR IF NO 

3281 013460 012737 000002 002410 MOV #2 ,DOSEC sELSE DO EVEN SECTORS NOW 
3282 013466 000407 BR & 

32835 013470 023727 002410 000032 3$: CMP DOSEC 432 ;LAST EVEN SECTOR? 

3284 013476 001405 BEQ 5$ ;BR IF YES 

3285 013500 062737 000002 002410 ADD #2,DOSEC sELSE BUMP SECTOR 

$509 013506 000137 013212 4$: JMP DOF BUF ;GO TO FILL BUFFER & DO ANOTHER 
3288 013512 012737 000001 002410 S$: MOV #1 ,DOSEC sALL SECTORS DONE...CHECK DATA 
3289 013520 005037 002404 CLR DOERR 

3290 013524 005037 002412 CLR DOCMER 

$50. 013530 000137 013566 JMP DORSE C :GO TQ READ SECTOR HANDLER 
3293 013534 005237 002404 6$: INC DOZRR 

3294 013540 032737 000020 013206 BIT ARNF ,SRXES ;SEEK ERROR? 

3295 013546 001757 BEQ 4$ :BR_IN NO 

3296 013550 012737 013212 013174 MOV #DOFBUF ,DODISP ;GOTO FILL BUFF AFTER RESTORE 
3297 013556 012737 000117 177170 MOV #<RESTOR! IE>,RXCS 

3298 013564 000002 RT] 


6 
ina EXERCISER MACY11 30G(1063) 17=-NOV-78 10:00 PAGE re, 


VKDAB.P11 17=NOV-78 10:00 INTERRUPT HANDLERS SEQ 0072 
3301 SF ERR RRR REE EERE KEKEEKEEKEKEKEEKEEKEEEKEEEKEREKEREKRREKREKKE | 
3302 :HANDLER TO READ A SECTOR ON DXO & POINT TO CHEEK. 

3303 fC AAR REAR EEAARAAKAEERAEEEAKEKEKKEKEEKKKEKRKEKKEEKREKERKEKEEEKEERRRKEKEEKEE 
3 

3305 013566 013701 002406 DORSEC: MOV DOTRK,R1 

3306 013572 0600301 SWAB R 

3307 013574 053701 002410 BIS DOSEC,R1 

3308 013600 010137 177174 MOV R1,RXSA ;LOAD TRK & SECTOR ADDR 

3310 01 012737 013622 013174 MOV ADORCHK,DODISP ;POINT TC READ CHECK HANDLER 
3311 013612 012737 000107 177170 MOV #<RSEC!IE>, RXCS : ISSUE READ SECTOR COMMAND 
3312 013620 000002 RTI 

se 

3315 SERRE KEE REE EERE KEKE EEE EERE KEEKERE 
3316 “ HANDLER TO READ CHECK ON DXO. 

3317 :WILL GO TO NEXT SECTOR/TRK IF HARD ERROR. 

3318 :WILL GO TO EMPTY BUFFER IF NO ERROR OR SOFT ERROR. 

3319 “WILL GO TO READ SECTOR (SAME) ON ERROR. 

3320 ;A RESTORE IS PERFORMED AFTER ANY SEEK ERROR (RNF). 

3321 FERRARA REE REREKEK RARER 
3322 

3323 013622 005737 177170 DORCHK: TST RXCS : ERROR? 

3324 013626 7100054 BPL 1$ F NO 

3325 013630 023727 002404 000012 CMP DOERR,#10. £10 ERRORS? 

3326 013636 001415 BEQ 3$ IF YES 

3327 013640 005237 002404 INC DOERR “ELSE DO AGAIN 

3328 013644 032737 000020 013206 BIT #RNF , SRXES = SEEK ERROR? 

3329 013652 001745 BEQ DORSEC :BR IF NO 

3330 013654 012737 013566 013174 MOV #DORSEC,DODISP ;:ELSE DO RESTORE & RET TO RD SEC 
3331 013662 012737 000117 177170 MOV #<RESTOR! IE>, RXCS 

333¢ 013670 000002 RT] 

3334 013672 004737 011716 3$: JSR PC, DOBAD -LOAD BAD TRK/SEC TABLE 

3335 013676 032737 000020 013206 BIT ARNE , SRXES ‘SEEK K ERROR? 

3336 013704 001410 BEQ 7$ -BR IF NO 

3337 013706 104066 FRROR 66 -SEEK ERROR READ SECTOR 

3339 013710 012737 014610 013174 MOV #DONEXT,DODISP ;:DO RESTORE 

3340 013716 012737 000117 177170 MOV #<RESTOR! IE>,RXCS 

3361 013724 RT] 

3343 013726 032737 000010 013206 738: BIT #CRC,SRXES :CRC ERROR? 

3344 013734 001404 BEQ 10$ “BR IF NO 

3345 013736 005237 2422 INC DOCRC sELSE SET FLAG 

3346 013742 104106 ERROR 106 *HARD CRC ERROR 

Sh 013744 000423 BR 2$ *& GO TO EMP BUFF TO CHK DATA 
3349 013746 005037 002422 10$: CLR DOCRC 

3350 013752 104020 ERROR 20 HARD READ ERROR 

3351 013754 000137 014610 IMP DONE x T 


6 
PDT=11 EXERCISER MACY11 30G(1063) 17-NOV-78 10:00 PAGE 3 
CVKDAB .P11 17-NOV-78 10:00 INTERRUPT HANDLERS SEQ 0073 
3352 
3353 013760 005737 002404 1$: TST DOERR sANY PREV ERRORS? 
3354 013764 001413 BEQ 2$ ; F NO 
3355 013766 005237 025770 INC TSERR ;TOTAL SOFT ERR CT 
3356 013772 005237 025774 INC PSERR sPASS SOFT ERR CT 
3357 013776 032737 000020 013206 BIT ARNF , SRXES ; SEEK ERROR? 
3358 014004 001402 BEQ 9$ ; F NO 
3359 014006 104067 ERROR 67 SEEK ERROR READ SECTOR 
3360 014010 000401 BR e$ 
$30) 014012 104021 9$: ERROR 21 ;SOFT ERROR READ SECTOR 
3363 014014 005037 002404 2$: CLR DOERR 
3364 014020 023727 003120 000005 CMP DXTST #5 Baer WRITE DELETED DATA TESTS? 
3365 014026 001005 : : BNE :BR IF _NO 
3366 014030 032737 000040 177172 617 #DD ,RXES ;_ "DELETED DATA* SET? 
3367 014036 001001 BNE 6$ :sBR IF YES 
$305 014040 104052 ERROR 52 :DD NOT SET 
$350 014042 000137 014046 6$: JMP DCEBUF :GO TO EMPTY BUFFER 
3372 
3373 
3374 
3375 
3376 
3377 SL REE REE EEE REE REE REE EEE REE REE REE ER 
3378 ; HANDLER TO EMPTY THE DRIVE BUFFER FOR Dx0 
3379 :& POINT TO THE CHECK DATA HANDLER. 
3380 SL REE EERE REE RRER EERE EERE ERE 
3381 
3382 014046 012703 000100 DOEBUF : MOV #100.R3 sWORD CT 
3383 014052 012701 002424 MOV #DOBUF ,R1 ;BUFFER ADDRESS 
3384 014056 012737 014104 013174 MOV MDOCDAT,DODISP ;POINT TO CHK DATA AFT INTER, 
3385 014064 012737 000103 177170 MOV A<EBUFIIE>,RXCS ; ISSUE EMPTY BUFFER CMD 
5386 014072 013721 177172 1$: MOV RXDB, (R1)+ :GET WORD & STORE IT 
3387 014076 005303 DEC R3 
3388 014100 001374 BNE 1$ 
bea C14102 000002 RTj 


PDT=11 EXERCISER 
CVKDAB.P11 


06 
3407 
08 


EE 
2 


KEKEEKEKESE 
SOMNANEWN=O 


3421 


3430 


KREEKEKE SE 
DYRARANY=S 


te 
ovo 


EEE 
wr 


014234 


014246 
014250 


17=NOV=78 1 


023727 
001033 
023727 
001002 
104055 
000417 


MACY11 30G(1063) 17=-NOV-78 10:00 PAGE ¥, ° 
10: INTERRUPT HANDLERS 


00 


002412 
000100 
002406 
002410 
002424 


002416 


002414 
003120 


002422 


002414 


025770 
025774 


000012 
000003 


oS seam ER TD CHECK DATA ASTER EIDTY METER CD CN OLD 


R TO CHECK ron AFTER ge BUFFER CMD ON Dx0. 


;OR TO READ SECTOR 


"ek can. ERR OR HARD ERR. 
ee ROUTINE IS ALSO ENTERED FROM A CRC ERROR FROM A READ COMMAND. 


J RARER AAA RARER EERE AKAREREKEEKEKERRRKEEEEKKEERREERKEEERKKKEE 


DOCDAT: CLR 


1$: CMP 


23: DEC 


3$: TST 


14$: CMP 


8$: ERROR 
BR 


4$: TST 


15$: TST 


DOCMER 


BUCERR 010. 


DXTST #3 
8 


DOCERR 
5$ 
TSERR 


PSERR 
23 


:WORD CTR 


R1_ NOW HAS EXPECTED DATA 
SGET BUFFER ADDR 
; COMPARE OK? 


:BR IF YES 
sELSE SAVE 


; ANY 7 ERR? 
:BR IF NO 
ey gm CRC ERROR? 


;BR_IF NO 
:DATA CRC ERROR 


‘BR if 10 ERRS YET? 
:DOING INIT TEST? 
:BR IN NO 


: INITIALIZE ERROR 
;HARD ERROR DATA COMPARE 


;HERE FROM CRC ERROR? 
*CRC ERR WITH DATA Ok 


sANY PREV ERR? 
:BR IF NO 


;TOTAL SOFT ERR CT 
:PASS SOFT ERR CT 


:SOFT ERROR DATA COMP 


SEQ 0074 


A EXERCISER 


VKDAB.P11 


014270 
014274 
014300 


014320 
014324 


014366 
014370 
014376 
014402 


MACY11 30G6(10635) 
17-NOV-78 10:00 


22 
014610 


002414 
003120 


013566 
014746 


010000 
017232 
017705 
002406 
017756 
003122 
002406 
000001 


010000 


017232 
017712 
017756 
002400 
000100 


000003 


000031 
002410 
000032 
002410 


164530 


003124 


0024 10 


164446 


177170 


17=-NOV-78 
INTERRUPT HANDLERS 


5$: 


7$: 


12$: 


10:00 PAGE 5 


DOCERR 
OCRC 
DONEXT 


DOCERR 
DXTST #3 


DORSEC 
DODUN 


6 


;DOING INIT TEST? 

“BR IF YES 

;ELSE READ SECTOR OVER AGAIN 
;ALL DONE 


IRUISIOII I ISISISISIOIOIDIDIOI I IOIUIIIIDIOI I IISIDIOISIOIOIIOIOIOIIIOIOIOIOIIOIII IOI III I IEE 
HANDLER TO SETUP NEXT SECTOR/TRACK FOR DxO. 

sWILL GO TO READ SECTOR (NEXT) IF ALL SECTORS ON TRACK NOT DONE. 
;WILL GO TO FILL BUFFER (NEXT TRACK) IF ALL SECTORS ON TRACK DONE. 
:WILL SHUT OFF DRV INTERRUPTS IF ALL TRACKS DONE, WITH A MESSAGE. 


Ce REAR RARER 


DONXT1: 


1$: 


2$: 
3$: 


6$: 


4$: 


7$: 
5$: 


CLR 
C 


DOERR 
DOCMER 

| i 
#2 ,D0SEC 
DOSEC ,432 
3$ 


#2 ,DOSEC 
DORSEC 


#B1T12,aSWR 
6$ 

,DRVO 

, [RK 
DOTRK,~(SP) 
, DUN 

FIN 

DOTRK ,MAXTRK 
4$ 


DOTRK 
#1 ,DOSEC 
5$ 


A#BITI2,aSWR 
7$ 


OPAT 
MIE,RXCS 


:LAST ODD SECTOR? 
“ELSE DO EVEN SECTORS NOW 
LAST EVEN SECTOR? 


;BR IF YES 
sELSE BUMP SECTOR 
:GO READ SECTOR 


:SKIP TYPEOUT IF NOT SET 


: SAVE DOTRK FOR TYPEOUT 
3:GO TYPE--DECIMAL ASCII WITH SIGN 


;SETUP TO GO TO Dx! 
sLAST TRACK? 
; IF YES 
;BUMP TRACK 
s INIT SECTOR 


;SKIP TYPEOQUT IF NOT SET 


;PATT DONE F 
DISABLE Dx0” INTERRUPTS 


SEQ 0075 


PDT-11 EXERCISER 
C 17-NOV-78 1 


VKDAB.P11 


498 
34 


014524 


014630 


os 


£00 


010000 
017232 
017725 


017756 
000100 


003120 
003120 


003126 
164556 


177170 


000001 
000002 


CY11 30G(1063) 17-NOV-78 10:00 PAGE i ° 
INTERRUPT HANDLERS 


SEERA EAEREAEEKKKKEKKKEEKEEKEEEEKEKEKEEKKKEKERRREEKEKKEE 


; HANDLER TO SETUP TO GO TO NEXT RANDOM TRACK/SECTOR FOR DxO. 


SERRE RAE 


DONXT2: a 


DONE XT : ive 


DOERR 
DOCMER 

FIN 

DOCNT 

DOCNT ,MAXSK 
#B1T12,aSWR 
1$ 


,DRVO 
»RANDOM 


, DUN 
#iE,RXCS 


DXTST #1 


:SETUP TO GO TO Dx1 
{DID ALL SEEKS? 
“SKIP TYPEOUT IF NOT SET 


sDISABLE DxXC INTERRUPTS 


SEQ 0076 


PDT=11 EXERCISER 
CVKDAB.P11 


014632 


014654 


014656 
014664 
014672 
014674 


014702 
014710 


014712 
014720 
014726 


014730 
014736 
014744 


014746 
014752 
014760 


014762 
014766 
014774 


012737 


012737 
012737 
000002 


012737 
012737 
000002 


012737 
012737 
000002 


012737 
012737 
000002 


005237 
042737 
000002 


005237 
042737 
000002 


046032 


014746 
000111 


014746 
000117 


014762 
0001 37 


014746 
000115 


014746 
000105 


MACY11 30G6(1063) 
17=NOV-78 10:00 


177174 


013174 
177170 


177170 


177170 


6 
17-NOV-78 10:00 PAGE "7 
INTERRUPT HANDLERS 


SARE RAREAERRAREKRAEKEKEEEKEAKEEKEKEKKKEEKEKEKREEKEKEKEKEEKEEKEEKRKEREKEEKKKEKEE 


; HANDLER TO SETUP INITIALIZE COMMAND TEST 


{RARER AAEEEKKEKKKEREEEEEEREKKEKEKEEREERERKEEREKEKEKEEE 


DOINIT: MOV #46032 ,RXSA : TRY TO FAKE DRIVE TO GO TO TRK 76 SEC 26 
; INIT SHOULD GO TO TRK 1, SEC 1. 
MOV #DODUN,DODISP :POINT TO DONE HANDLER 
84} #<INITAL! IE>,RXCS :DO INIT COMMAND 
III IOIUIOIS I IOIDIOIDIUIOISIOIOISISISIISIIOIOIIOIOIIOIOIUIOIII ISIDORE 
; HANDLERS TO SETUP RESTORE COMMAND TEST 
IDOI IE ISISIOIUIUIDIDIOIOIIISIDIDIIIIIIOI III ISISIOIDIOIIIOIIIIIIIOIUIOIIUIIIIOIIOIIIIOI ot 
DOREST: MOV #DODUN,DODISP ;POINT TO DONE HANDLER 
MOV #<RESTOR! IE>,RXCS 


RTI 


DIREST: MOV #D1DUN,D1D 
wy #<RESTOR! I 


ISP 
E!DX1>,RXCS 


went Oo eee eee RRR RRR RRR RARER ERRRRARRS SERRA RAS ELS SE SESSA E SSS SS 


sHANDLER TO SETUP READ STATUS COMMAND TEST 


CC EAE ARERR KEREKRREREEEKEREKEREERREREREERREKKEKEEEH 


DOSTAT: MOV ADODUN,DODISP ;POINT TO DONE 
A A<RSTAT!IE>,RXCS ;DO READ STATUS COMMAND 


wet tff20 022 RR RRR RARER ESERERS REESE SEER ESSER SSE S ESE SS ES SE 


sHANDLER TO START INVALID ADDRESS TESTS 


FF AAR RARER AERA EERE 


DUINV: MOV #DODUN,DODISP ;POINT TO DONE 
“4 A<WSEC'IE>,RXCS ;DO WRITE SECTOR COMMAND 


° CAAA RARER EE 


;HANDLERS TO FINISH INITIALIZE, RESTORE, WRITE DELETED DATA, 
;READ STATUS & INVALID ADDRESS TESTS. 


Ps ARREARS RESSSSASSRRRRRRSRASRSES ERASE SRR ER RRS RRR RRR RRS S RRR SRS S SY 


DODUN: INC FIN ;SET DONE FLAG 

a MIE,RXCS “DISABLE FURTHUR DXO INTERRUPTS 
DIDUN: INC FIN 

ati M<JE'Dx1>, RXCS 


SEQ 0077 


6 
PDT=11 3 eat 5 ye Yil 50G(1063) 17-NOV-78 10:00 PAGE "8 


CVKDAB .P -NOV-78 00 INTERRUPT HANDLERS SEQ 0078 
3581 
3582 
3583 PPP PtP PPI PPP rrr ert TTI TI TTI TTT TTTiTiTiTiTiLiTitititi. 
3584 :” HANDLER TO FILL THE DRIVE BUFFER FOR Dx1 
3585 :@ POINT TO THE WRITE SECTOR HANDLER. 
3586 RARER AERA ERAT RE EERRRRRRRRERER ERE RERER RRR EERE 
3587 
3588 014776 012703 00010C DIFBUF: MOV #100,R3 ;WORD CT 
3589 015002 013701 002656 MOV DITRK,R1 
3590 015006 000301 SWAB R1 
320) 015010 053701 002660 BIS DISEC,R1 
3593 015014 005737 003132 TST COMP} ;DONT SET BIT15 IN COMPATABILTIY TESTS 
3594 015020 001005 BNE 2$ 
3595 015022 05737 003134 TST COMP2 
3596 015026 001002 BNE 2$ | 
tad 015050 052701 100000 BIS 4B1T15,R1 ;TO DISTINGUISH DX1 DATA FROM DxO DATA 
3599 015034 012737 015062 013202 2$: MOV ADIWSEC,DIDISP ;POINT TO WRITE SECTOR AFTER RII 
3600 015042 012737 000121 177170 MOV M<F BUF! IE!DX1>,RXCS ; ISSUE FILL BUFFER CMD 
3601 015050 010137 177172 1$: MOV R1,RXDB FILL ENTIRE SECTOR WITH ITS ADDRESS 
3602 015054 005303 DEC R3 -@ BIT 15 SET 
3603 015056 001374 BNE 1$ 
3604 015060 000002 RT] 
3605 
3606 
3607 LRA ERE R EERE RRR REE RRR RRR E RRR 
3608 ;HANDLER TO WRITE THE SECTOR FOR DX1 & POINT TO WRITE CHECK. 
3609 LLAMA REE EERE REE RRR RRR ERRR ERE 
3610 
3611 015062 013701 002656 DIWSEC: MOV DITRK,R1 
3612 015066 000301 SWAB R1 
5613 015070 053701 002660 BIS DISEC,R1 
3614 015074 010137 177174 MOV R1,RXSA ;LOAD TRACK & SECTOR ADDR 
36015 015100 012737 015116 013202 MOV ADIWCHK ,DIDISP ;POINT TO WRITE CHECK HANDLER 
3616 015106 012737 000125 177170 MOV A<WSEC! IE !DX1>,RXCS ; ISSUE WRITE SECTOR COMMAND 
it 015114 000002 RT] 


PDT-11 EXERCISER 
C 17-NOV-78 10:00 


VKDAB .P11 


oOo OOOO OCOOCOOCOOOoO 
auth Ghat siaiabaiabad dababadad 
MV UW WUIWUIUIUIUIUIVUIVIV 
ond and OS ee § See eee 

“Sw ViVi 


015174 
015200 
015202 
015206 
015212 
015220 
015222 
015224 


015226 


7 
000137 


MACY11 encicent 17-NOV-78 ee a PAGE id 


177170 
002654 
012050 
000020 


015230 
000157 


002654 
025770 


025774 
000020 


002654 
002660 
000002 
002660 
000002 
014776 
000001 
002654 
002662 
015352 
002654 
000020 


014776 
000137 


000012 


015206 


013202 
177170 


013206 


000031 
002660 
000032 
002660 


002660 


013206 


013202 
177170 


TERRUPT HANDLE 


ITTTITI IIIT IIIT LITT TTT TILT TTT TTT LTTE LiTiiiiTitiiTiiiie 


HANDLER TO WRITE CHECK ON DX1. 
;WILL_GO TO FILL BUFFER TO DO SAME SECTOR ON SOFT ERROR 
:OR NEXT SECTOR ON NO ERROR OR HARD ERROR. 


:WILL GO 


TO READ SECTOR AFTER ALL SECTORS ON TRACK ARE WRITTEN. 


ZA RESTORE IS PERFORMED AFTER ANY SEEK ERROR (RNF). 


7$: 


8$: 
2$: 


6$: 


RTI 


5 REAR REREEREKEEEKKEEKEKEKEEKRERKEEKEEKEEEKEEREEEKEKEEKKEE 


DIWCHK: TST 
BP 


RXCS : ERROR? 

1$ ;BR IN NC 

DIERR,#10. 10 ERRORS? 

6$ ;BR IF NO & TRY AGAIN 
PC,LD1BAD sLOAD BAD TRK/SEC TABLE 
#RNF ,SRXES : SEEK K ERROR? 

7$ “BR IF NO 

70 ;SEEK ERROR WRITE SECTOR 
#2%,D1DISP *RE T TO 2$ AFT RESTORE 
#<RESTOR'IE'DX1>. RXCS 

24 ZERROR WRITE SECTOR 

2$ :;GO TO NEXT SECTOR 
DIERR ANY . ta ERRORS? 

2$ “BR IF 


TSERR : TOTAL SOFT ERR CT 
PSERR “PASS SOFT ERR CT 

#RNF , SRXES “SEEK ERROR? 

8$ :BR IF NO 

4 “SEEK ERROR WRITE SECTOR 

25 :ERROR WRITE SECTOR 

DIERR 

D1SEC #31 :LAST ODD SECTOR? 

#2,D1SEC “ELSE DO EVEN SECTORS NOW 
DISEC.#32 LAST EVEN SECTOR? 

#2,D1SEC “ELSE BUMP SECTOR 

D1F BUF *GO TO FILL BUFFER & DO ANOTHER 
#1,D1SEC :ALL SECTORS DONE...CHECK DATA 
DIERR 

D1CMER 

DIRSEC :GO TO READ SECTOR HANDLER 
DIERR 

#RNF , SRXES : SEEK CRROR? 


a NO 
#D1FBUF , DIDISP T TO FILL BUFF AFT ahaa 
#<RESTOR! IE 'DX1>, RXCS 


CT ARERR K EERE EERE EERE EERE ERED 


SEQ 0079 


PDT-11 EXERCISER MACY11 30G(1063) 17=-NOV-78 10:00 PAGE go” 
CVKDAB.P11 17-NOV-78 10:00 INTERRUPT HANDLERS SEQ 0080 


% ;HANDLER TO READ A SECTOR ON DX1 & POINT TO CHECK. 

3676 Prise iti titi iiisietitiidiiiisitit ti titi t titi iii titi ttt ii tT 
36 
3678 015352 013701 002656 DIRSEC: MOV DITRK,R1 
3679 015356 000301 SWAB R 
3680 015360 053701 002660 BIS DISEC,R1 
3681 015364 010137 177174 MOV R1,RXSA ;LOAD TRK & SECTOR ADDR 
3683 015370 012737 015406 013202 MOV #DIRCHK,DIDISP ;POINT TO READ CHECK HANDLER 

3684 015376 012737 000127 177170 MOV #<RSEC! TE !DX1>, RKCS ; ISSUE READ SECTOR COMMAND 
3685 015404 000002 RTI 
3686 
3687 
3688 
3689 SOR IOIOIIIIISIIIIS IIIS III ISIOIOIIIOIUIIOI II IOIOIUIOIIIIISIOIIIOI IOI IO 
3690 :HANDLER TO READ CHECK ON DX1. 
3691 ;WILL GO TO aA sateen a IF HARD ERROR. 
3692 sWILL GO TO EMPTY BUFFER IF NO ERROR OR SOFT ERROR. 

3693 WILL GO TO READ SECTOR (SAME) ON ERR 
3694 RESTORE IS PERFORMED AFTER ANY SEEK ERROR (RNF). 

3695 7 Ramin HE a ah te wt wel A i ee Bee IEE CSE 
3697 015406 005737 177170 DIRCHK: TST RXCS ERROR? 
3698 015412 100054 BPL 1$ :BR IF NO 
3699 015414 023727 002654 000012 CMP DIERR,#10. :10 ERRORS? 
3700 015422 001415 BEQ 3$ 7BR IF YES 
3701 015424 005237 002654 INC DIERR sELSE TRY AGAIN 

3702 015430 032737 000020 013206 BIT ARNE , SRXES >SEEK ERROR? 
3703 015436 001745 BEQ DIRSEC ;BR IF NO 
3704 015440 012737 015352 013202 MOV #DIRSEC,DIDISP ELSE DO RESTORE & RET TO RD SEC 
3705 015446 012737 000137 177170 MOV #<RESTOR! IE!DX1>,RXCS 
a 015454 000002 RT] 
3708 015456 004737 012030 3$: JSR PC,_D1BAD ;LOAD BAD TRK/SEC TABLE 

709 015462 032737 000020 013206 BIT ARNF , SRXES ; SEEK ERROR? 

3710 015470 001410 BEQ 7$ F NO 
tab 015472 104072 ERROR 72 ® SEEK ERROR READ SECTOR 
3713 015474 012737 016342 013202 MOV #D1NEXT,DIDISP 7 RESTORE 

7 177170 MOV A<RESTOR! IE'DX1>,RXCS 


3714 015502 012737 00013 
000002 


sfi2 015510 RT] 

3717 015512 032737 000010 013206 7$: BIT #CRC,SRXES - CRC re 

3718 015520 001404 BEQ 10$ F NO 

3719 015522 005237 002672 INC DICRC “ELSE SET FLAG 

3720 015526 104111 ERROR 111 :HARD CRC ERROR 

$553 015530 000423 BR 2$ :® GO TO EMP BUFF TO CHK DATA 
3723 015532 005037 002672 10$: CLR DICRC 

3724 015536 104026 ERROR 26 ;HARD READ ERROR 

3725 015540 000137 016342 JMP DINEXT 


D 7 
PDT=11 EXERCISER MACY11 30G(1063) 17=NOV-78 10: es PAGE 81 
CVKDAB.P11 17-NOV-78 10:00 INTERRUPT HANDLER SEQ 0081 
3726 | 
3727 015544 005737 002654 1$: TST DIERR sANY PREV ERRORS? 
3728 015550 001413 BEQ 2$ ;BR_IF NO 
3729 015552 005237 025770 INC TSERR TOTAL SOFT ERR CT 
3730 015556 005237 025774 INC PSERR ;PASS SOFT ERR CT 
3731 015562 032737 000020 013206 BIT #RNF ,SRXES SEEK ERROR? 
3732 015570 001402 BEQ ;BR_ IF NO 
3735 015572 104073 ERROR 73 ; SEEK ERROR READ SECTOR 
3734 015574 000401 BR 2$ 
ey) 015576 104027 9$: ERROR 27 ;SOFT ERROR READ SECTOR 
3737 015600 005037 002654 2$: CLR DIERR 
Te 015604 000137 015610 JMP D1EBUF ;GO TO EMPTY BUFFER 
3740 
3741 
3742 
3743 
3744 
3745 SO II ITI TTT I I HRI REIKI EEE RR TKK 
3746 : HANDLER TO EMPTY THE DRIVE BUFFER FOR DX1 
3747 :@ POINT TO THE CHECK DATA HANDLER. 
3748 AIO IOI IOISIOIOIIIOI III ISIOIOIOI IIIS ICIOIOIOIOI IIIT OTTO III I TOT TOT OTST TTT IE 
3749 
3750 015610 012703 000100 DIEBUF: MOV #100,R3 _ CT 
3751 015614 012701 002674 MOV #D1BUF ,R1 sBUFFER_ ADDRESS 
3752 01 012737 015646 013202 MOV #DICDAT,D1DISP :POINT TO CHK DATA AFT INTER. 
3753 015626 012737 000123 177170 MOV #<EBUF ! TE !DX1>,RKCS ; ISSUE EMPTY BUFFER CMD 
3754 015634 013721 177172 1$: MOV RXDB, (R1)+ ;GET WORD & STORE IT 
3755 015640 005303 DEC R3 
3756 015642 001374 BNE 1$ 
3757 015644 000002 RT] 


PDT=11 EXERCISER 
CVKDAB.P11 


016004 
016010 


Peep ep 
SSSS33S 
KFSRVARN 


17-NOV-78 


001002 
052701 
pes 


7a. Y11 30G(10635) 17-NOV-78 10:00 PAGE bo” 
10: INTERRUPT HANDLERS 


SEERA REEKEEEKEKKEEKEEKEEKEEEEEEREKREREKEHREERERERERKEKEE 


: “HANDLER TO CHECK DATA AFTER EMPTY BUFFER CMD ON DX1. 
NO ERR OR HARD ERR. 


SAME) WHEN SOFT ERR. 
des ROUTINE IS ALSO ENTERED FROM A CRC ERROR FROM A READ COMMAND. 


FEAR KEKKEKERREREREKEKEEEEEEEEKEKEKEKEEKKEKREKEERREKREEEEEEKEREEEEREKKEKE 


00 


002664 


025770 
025774 


000072 


:WILL GO TO NEXT SECTOR HANDLER WHEN 


;0R TO READ SECTOR (¢ 
DICDAT: CLR DICMER 
MOV #100,R3 
MOV DITRK,R1 
SWAB R1 
BIS DISEC,R1 
TST COMP1 
BNE 
TST COMP2 
BNE $$ 
BIS #B1T15,R1 
6$: MOV #D1BUF ,R2 
1$: CMP R1,(R2) 
BEQ $ 
MOV (R2) ,DIREC 
INC D1CMER 
BR 3$ 
2$: DEC R3 
BEQ 3$ 
ADD #2,R2 
BR $ 
33: TST DICMER 
BEQ $ 
TST DICRC 
BEQ 14$ 
ERROR 112 
BR 5$ 
14$: CMP DICERR,410 
BNE 7$ 
ERROR 30 
5$ 
4$: TST DICRC 
BEQ 15$ 
ERROR 113 
BR 5$ 
15$: TST DICERR 
BEQ $ 
INC TSCRR 
INC PSERR 
ERROR 1 


;WORD CTR 


sDONT SET BIT15 IN COMPATABILITY TESTS 


:TO DISTINGUISH DX1 DATA FROM Dx0O DATA 
:GET BUFFER ADDR 
OMPARE OK? 


;BR IF YES 
sELSE SAVE 


sANY COMP ERR? 


;BR IF NO 
;HERE FROM CRC ERROR? 


“DATA CRC ERROR 


rel 
“HARD ERROR DATA COMP 


10 ERRS YET? 


HERE FROM CRC ERROR? 
=CRC ERR WITH DATA OK 


ANY ERR? 


;TOTAL SOFT i 4 
:PASS SOFT ERR 


;SOFT ERROR DATA "COMP 


SEQ 0082 


— 


PDT=11 
CVK 


: 


OONAUESWN OO 


Bas 


3821 


um 


—_ << 
_rn 


016036 
016042 
016046 
016052 
016056 


016254 


RCISER 


005237 
000137 


MACY11 30G6(1065) 
17-NOV-78 10:00 


90267 3 
016342 
002664 
015 


0 
352 


002660 


000002 
015352 
010000 
017237 
017705 
002656 


017756 


010000 
017237 


000031 
002660 
000032 
002660 


162776 


603124 
002660 


162714 


177170 


17-NOV-78 


5$: 


7$: 


7 
10:00 PAGE 83 
INTERRUPT HANDLERS 


DICERR 
DINEXT 


DICERR 


DIRSEC sREAD SECTOR OVER AGAIN 


FREER ERK EAR EEKKEKEKREKEKEKKEKEKEKEKEEKKEKEKEKREKEKREKRKEEKEKEKEK 


: HANDLER TO SETUP NEXT SECTOR/TRACK FOR Dx1. 


:WILL GO TO READ 


SECTOR (NEXT) IF ALL SECTORS ON TRACK NOT DONE. 


;WILL GO TO FILL BUFFER (NEXT TRACK) IF ALL SECTORS ON TRACK DONE. 
sWILL SHUT OFF DRV INTERRUPTS iF ALL TRACKS DONE, WITH A MESSAGE. 


5 FERRER EEEKEKKEKEKKKEEKKEKEKEKEEKEKEKKEEKKEKEEEEEEKEEEKKKKKK 


DINXT1: 


6$: 


4$: 


7$: 
5$: 


CLR 
C 


D1ERR 
D1CMER 

DISEC.#31 LAST ODD SECTOR? 
#2,D1SEC “ELSE DO EVEN SECTORS NOW 
DISEC 432 LAST EVEN SECTOR? 

3$ “BR IF YES 

#2,D1SEC ELSE. BUMP SECTOR 


DIRSEC :GO READ SECTOR 


#B1T12.aSuR :SKIP TYPEOUT IF NOT SET 
“DRV1 

’ TRK 

D1TRK,-(SP) ::SAVE D1TRK FOR TYPEQUT 
we ::GO TYPE--DECIMAL ASCII WITH SIGN 
FIN :SETUP TO G0 TO DxO 
D1TRKMAXTRK “LAST TRACK? 

4$ :BR IF _YES 

D1TRK TRACK 

#1,D1SEC - INIT SECTOR 

5$ 

#B1T12,aSWR :SKIP TYPEOUT IF NOT SET 
.DRV1 

,PATT 

, DUN 

DIPAT :PATT DONE FLAG 


A<IE!DX1>,RXCS ;DISABLE DX1 INTERRUPTS 


SEQ 0083 


PDT=11 
CVKDAB. 
3860 
3861 
3865 


3864 
3865 


g 


XERCISE 
11 1 


016342 
016350 
016352 


7-NOV-78 1 


023727 
001644 
000741 


rng 4h 30G(10635) 17-NOV-78 10:00 PAGE g, 


002654 
002662 
003122 
002652 
002652 
010000 
017237 


003120 


003126 
162624 


177170 


000001 


INTERRUPT HANDLERS 


SERRA EEAAAEREKEKEKEKKEKEEKRERAEREEREEREKEEEREKEEEREKREE 


; HANDLER TO SETUP TO GO TO NEXT RANDOM TRACK/SECTOR FOR Dx1. 


SAREE KEKEEE 


DINXT2: ae 


DINEXT: 


DIERR 
D1CMER 

FIN 

DICNT 

* al eames 
#B1T12,aSWR 
1$ 


»DRV1 
»RANDOM 


DUN 
#<IE!'DX1>,RXCS 


DXTST 41 
DINXT 1 
DINXT2 


;SETUP TO GO TO Dx0 

;DID ALL SEEKS? 

;BR IF NO 

:SKIP TYPEOUT IF NOT SET 


;DISABLE DX1 INTERRUPTS 


SEQ 0084 


PDT 
CVK 


T=11 
D 


VKDAB. 
3886 
3887 


E 
p 


016354 
016360 
016364 
016566 


016372 
016576 
016404 


016524 


XERCISER 
11 17-NOV-78 


MACY 1 cusibieeaad 


10:00 


016744 
177170 


016666 
016666 


016666 
017004 
016744 


177170 


016666 
016666 


016670 
016672 


000012 


000012 


uitener s 


NTERRUPT HANDLERS 


H 7 
10:00 PAGE 85 


“ASSAD AAAAAAAAASAAALAARALALLALALESAAS ESLER ESAS RS ERE ESET ERE SSS 


: THE F 


LOWING CODE, THE PROGRAM ME 
: THE DISKETTE CONTAINING ONLY THE 
; THE OPERATOR CAN TYPE 'P* TO DO ANOTHER 
:TYPE '240G’ TO ENTER TESTING. 


NORMAL 
sENTIRE CODE, INCLUDING TEXT & ERROR TABLE, 


MESSAGES, IS A UTILITY TO COPY 
BOOT & S rey EXERCISER FROM DXO TO Dx1. 


IS 400(10) WORDS. 


TIBOR IES ISIS ISIS SIDS USOSIIOOIOISOII IIR IER titi 


COPY: 


23: 


3$: 


CLR COPFLG 
TYPE » COPMSG 


JSR PC ,GETSEC 


CLR ERFLG 
MOV #1, TRACK 
V #1,SECT 
TSTB RXCS 
BPL 74 


JSR R5,RDWR 


TST RXCS 

BPL $ 

INC ERFLG 

CMP ERFLG,#10. 
BNE 1$ 

ERROR 100 

HAL T 

BR e 


CL ERFLG 
JSR R5 , EBUFF 
DOBUF 


JSR R5.,RDWR 
<WwSEC!DX1> 

TST RXCS 

BPL 4$ 

INC ERFLG 

CMP ERFLG,#10. 

BNE 3$ 

ERROR 101 

HAL T 

BR 7c 


;DONT NEED FLAG ANY MORE 

; INSERT SCRATCH IN DX1 & TYPE P 
:WAIT FOR PROCEED 

;CALCULATE MAX SECTORS TO BE COPIED 
s INITIALIZE 


;DONE? (CTL RDY) 
:BR IF NO & TRY AGAIN 


;READ Dx0 


: ERROR? 

;BR IF NO 

310 yy 

“BR | NO & TRY AGAIN 
any ERR READ " SECTOR Dx0 


sFORCE A RESTART FROM 250 


sEMPTY BUFFER INTO DOBUF 


;WRITE DX1 


; ERROR? 
:BR IF NO 


;10 ERROR 
:BR IF NO TRY AGAIN 
sERROR WRITE SECTOR 


;FORCE RESTART AT 250 


SEQ 0085 


Ag EXERCISER 


VKDAB.P11 


016526 
016532 
016536 
C16540 


016570 
016574 


016576 
016602 


016606 
016614 


016616 
016624 
016626 
016652 


17-NOV-78 1 


005237 


023737 
001415 


023727 


7 
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10:00 


020256 
016354 


0G0012 


016662 


000032 


016672 


NTERRUPT HANDLERS 


4$: 


S$: 


6$: 


CLR ERFLG 
JSR R5,RDWR 
<RSEC!DX1> 


TST RXCS 

BPL 5$ 

INC ERFLG 

CMP ERFLG,410. 

BNE 4$ 

ERROR 103 

HALT 

BR 72 

JSR R5 , EBUF F 
D13UF 

JSR PC ,DATCHK 

INC SECCNT 

CMP SECCNT ,MAXSEC 

BEC 8$ 

CMP SECT #32 

BEQ 6$ 

INC SECT 

BR 1$ 

INC TRACK 

MOV #1,SECT 

BR 1$ 

TYPE . COPDUN 

HALT 

JMP COPY 


; COMPARE DOBUF 


sREAD DX1 


zs ERROR? 

;BR IF NO 

310 ERROR 

“BR IF NO eT AGAIN 
;HARD ERR READ SECTOR Dx1 


sFORCE 250 RESTART 


;EMPTY BUFFER INTO D1BUF 


WITH D1BUF 

; TOTAL DONE 

;DID TOTAL # SECTORS? 
BR IF YES 


BR | DID aw DO LAST SECTOR ON TRACK? 
sELSE BUMP & DO ANOTHER 

;BUMP TRK 

; INIT SECTOR 

:® DO ANOTHER 
:DONE MSG 
;DO AGAIN IF ‘*P* TYPED 


;TOTAL # SECTORS TO READ FROM Dx0 
;TOTAL # SECTORS WRITTEN TO Dx1 


SEQ 0086 


J. ¢ 
PDT=11 EXERCISER MACY11 30G(1065) 17=-NOV-78 g's: PAGE 87 


CVKDAB.P11 17=NOV-78 10:00 INTERRUPT HANDL SEQ 0087 

76 

3977 SERRE EERE EERE REE REE EERE EERE EE RR 

3978 ;ROUTINE TO CALCULATE THE MAX # OF SECTORS TO READ FROM DxO 

3979 SEE AREER ER EERE RRR E REE 

3980 

3981 016674 012700 026532 GETSEC: MOV #LSTAD ,RO GET MAX ADDR 

3982 016700 200 ASR RO GET WORD CT 

3983 016702 005500 ADC RO :DONT LOOSE ANY 

3984 016704 062700 000377 ADD #377 ,RO 

3985 016710 042700 000377 BIC #377 ,RO sROUND OFF TO NEAREST WHOLE WORD 

3987 016714 000 SWAB RO 

3988 016716 006300 ASL RO 

ta 016720 006300 ASL RO ;DIVIDE BY 100(8) FOR SECTOR CT. 

3991 016722 062700 000074 ADD #<15.*4>,R0 sADD SECTOR CT FOR BLOCKS 0 - 14 OF Dx0O 

a 016726 7 000010 ADD #8. ,RO s2@ MORE BLOCKS (NECESSARY FUDGE FACTOR) 

3994 016732 010037 016662 MOV RO ,MAXSEC _ SAVE 

3995 sTHIS IS THE MAX SECTORS WE WILL READ OFF Dx0 

3996 ;& WRITE TO DX1 STARTING AT TRK 1, SECT 1 

3997 016736 005037 016664 CLR SECCNT sCCUNT OF TOTAL SECTORS WRITTEN TO Dx1 

3998 016742 000207 RTS PC 

3999 

4000 

4001 SDR RR RR RR TT RT RR ERR ERE REE E REE EE 

4002 sROUTINE TO READ OF WRITE DxXO OR Dx! 

4005 :R5 POINTS TO THE COMMAND & DISK # 

4004 SRR ERR ERR RRR REE REEREREEEEERERRERRERR 

4005 

4006 016744 015700 016670 RDWR: MOV TRACK ,RO 

4007 016750 300 SWAB RO 

4008 016752 053700 016672 BIS SECT RO 

4009 016756 0100357 177174 MOV RO,RXSA ;LOAD TRK/SEC 

4010 016762 012537 177170 MOV (R5) + .RXCS ; ISSUE COMMAND 

4011 016766 004537 011600 JSR R5,TIMER2 ;WAIT FOR DONE 

4012 016772 177170 RXCS 

4015 016774 000200 DONE 

4014 016776 104075 ERROR 75 NO DONE 

4015 017000 000000 HAL T 

4016 017002 000205 RTS R5 
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SEER RARER AAR EEREKEAEAEKERKEEREEERKEKEEREEERKKKEEEKKEKEREEEE 


" ROUT INE TO pty BUFFER INTO DOBUF OR D1BUF 
:R5 POINTS TO IT 


SII ICSI SII IIIS IIISIOI IOI IOI IOI III III IIR 


012700 000100 EBUFF: MOV #100,RO0 WD CT 

017010 012501 MOV (R5)+,R1 ;BUFFER ADDR 
017012 012737 000003 177170 MOV #EBUF ,RXCS : ISSUE_EMPTY BUFFER COMMAND 
017020 013721 177172 i$: MOV RXDB, (R1) + :PUT IT IN TABLE 
017024 005300 DEC RO 
017026 001374 BNE 1$ 

17030 004537 011600 JSR R5,TIMER2 ;WAIT FOR DONE 
017034 177170 RXCS 
017036 0002 DONE 
017040 104075 ERROR 75 NO DONE 
017042 000000 HAL T 
017044 000205 RTS R5 


FEAR RRR REE EKER EEE KEKE KKEKKEEKEKEREKKEEEEEKEEE 


: ROUT INE TO COMPARE DOBUF WITH D1BUF 


CRAKEAR EKKK KEKE EKKKEKEKEEEKEEKEKEKREEEKEEEE 


017046 012700 000100 DATCHK: MOV #100,R0 WD CT 
017052 012701 002424 MOV #DOBUF ,R1 

017056 012702 002674 MOV #D1BUF ,R2 

017062 022122 1$: CMP (R1)+,(R2)+ ; COMPARE ? 
017064 001403 BEQ 2$ :BR IF YES 
017066 104102 ERROR 102 :MI SCOMPARE 
017070 000000 HAL T 

017072 000776 BR oe 

017074 005300 2$: DEC RO 

017076 001571 BNE 1$ 

017100 000207 RTS PC 


Ag EXERCISER 
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041600 
052200 


052200 


2 
042200 
005200 

200 


200 
042515 


MACY11 30G6(1063) 
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RERRRLLSSS 
SINR N NNN 
IASI 2 UTES SS 

Tg 4 te ee o——f) 
Ww WNW NYT 


054522 
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INTERRUPT HANDLERS 


-SBTTL PROGRAM MESSAGES 


FREAK EKEEEKERKEKKKERKKEEKEKKKEEKKEEKERKEKEKEKEEKERAEKKKEEK 


:" MESSAGES & ERROR FORMATS 


FERRER KRKKKEEEEEEEEKKKEKEKEEKKEKEKKEEKREKEEKREKKEKKKEEEEEKEK 


BEX 


oO oO 
a me me me me me te te nt ag ne te bt bmg bt bang ng ng Bg 
NINININININININININININININIUNINININ 


ASC 
“ASC 


NANI BY Be Ba BN A Bi I BS BY Bi BR a 


<CRLF>/CLUSTER OPTION/ 
<CRLF>/TERM #1/ 
<CRLF>/TERM #2/ 
<CRLF>/TERM #3/ 
<CRLF>/SYNC COMM/ 
<CRLF>/ASYNC COMM/ 
<CRLF>/PRINTER/ 

/ PORT TESTED/ 
<CRLF>/DXO/ 
<CRLF>/DX1/ 
<CRLF>/CLOCK/ 
<CRLF>/4K/ 
<CRLF>/8kK/ 
<CRLF>/12K/ 
<CRLF>/16K/ 
<CRLF>/20K/ 
<CRLF>/24K/ 
<CRLF>/30K/ 

/ MEMORY PRESENT/ 


eASCIZ / NOT PRESENT/ 
<CRLF><LF>/INSERT SCRATCH DISKS, TYPE ‘*P* FOR NORMAL TESTING/ 
40G* FOR NORMAL RESTARTS/ 

TO COPY SYS EXERCISER DISK/ 

FOR COMPATABILITY PASS 1: WRITE/ 

FOR COMPATABILITY PASS 2: READ/ 

/ TESTING DROPPED/ 

/ RUNNING/ 

/ TRK/ 

/ DATA PATT/ 

/ RANDOM SEEKS/ 
<CRLF>/MEM TESTS/ 

/ DONE/ 

<CRLF><LF>/END PASS #/ 
/ TOTAL ERRORS: 


/ 
<CRLF >/ TOTAL SOFT ERRORS: 
<CRLF ><LF >/ TOTAL ERRORS THis PASS:/ 
<CRLF>/ , SOFT ERRORS THIS PASS:/ 


CRL 

<CRLF>/COPY DXO TO D 
<CRLF>/ INSERT SCRATCH DISK IN DX1, 
<CRLF>/DONE...TYPE TO DO AGAIN 
<CRLFO<LF>/COMPATABIL ITY PASS 1 
<CRLF>/DO *P* FOR PASS 2 (READ)/ 
<CRLF>/DEVM = / 

/MEMORY TIMEOUT/ 


TYPE ‘P* 
OR *240G' 
WRIT TE) DONE/ 


PROCEED/ 
FOR NORMAL TESTING/ 


SEQ 0089 
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20475 115 046505 042040 one: ~ASCIZ /MEM DATA COMP ERR/ 
020517 123 047131 020103 EMS: eASCIZ /SYNC_COMM DID NOT ’ acing SYNC CHAR/ 
020565 120 044522 052116 EM4: -ASCIZ /PRINTER STATUS ERR/ 
02 042524 046522 021440 EMS: ASCIZ /TERM #1 DATA COMP ERR/ 
020634 042524 046522 021440 EM6: ~ASCIZ /TERM #2 DATA COMP ERR/ 
020662 042524 046522 021440 EM: eASCIZ /TERM #5 DATA COMP ERR/ 
020710 051501 047131 0201035 EMB8: ASCIZ /ASYNC COMM DATA COMP ERR/ 
020741 125 047131 020103 EMI: ASCIZ /SYNC_COMM DATA COMP ERR/ 
020771 125 042516 0501350 EM10: ASCIZ /UNEXP DISK INTERRUPT/ 
021016 054104 02 051127 EM11: ASCIZ /DXO WRITE ERR/ 
021034 054104 040510 EM13: .ASCIZ /DXO HARD ERR = READ SECT/ 
021065 104 030130 051440 EM14: SCIZ /DXO SOFT ERR = READ SECT/ 
021116 054104 040510 EM15: ASCIZ /DXO HARD ERR = DATA COMP/ 
021147 104 0301350 051440 EM16: ASCIZ /DXO SOFT ERR - DATA COMP/ 
021200 054104 051127 EM17: ASCIZ /DX1 WRITE ERR/ 
021216 054104 020061 040510 EM19: ASCIZ /DX1 HARD ERR = READ SECT/ 
021247 104 030530 051440 EM20: ASCIZ /DX1 SOFT ERR = READ SECT/ 
1300 054104 020061 040510 EM21:  .ASCIZ /DX1 HARD ERR = DATA COMP/ 
021351 104 030530 051440 EM22: ASCIZ /DX1 SOFT ERR = DATA COMP/ 
1362 046103 020113 052510 EM23: ASCIZ /CLK HUNG/ 
021373 120 044522 052116 EM24: ASCIZ /PRINTER HUNG/ 
021410 042524 046522 021440 EM25: ASCIZ /TERM #1 HUNG/ 
021425 124 051105 020115 EM26: .ASCIZ /TERM #2 HUNG/ 
021442 042524 046522 021440 EM27: ASCIZ /TERM #3 HUNG/ 
021457 047131 020103 EM28: ASCIZ /SYNC COMM HUNG/ 
021476 051501 047131 020103 EM29: ASCIZ /ASYNC COMM HUNG/ 
021516 054104 020060 052510 €&MS50: ASCIZ /DXO HUNG/ 
021527 030530 044 EM31: .ASCIZ /DX1 HUNG/ 
021540 054523 041516 0414 EMS2: ASCIZ /SYNC COMM = DATA NOT AVAIL NOT SET/ 
603 047131 020103 EM33: ASCIZ /SYNC COMM = RECVR ACTIVE NOT SET/ 
021644 054523 041516 041440 EM34: ASCIZ /SYNC COMM = RECVR DONE NOT SET/ 
021703 030130 023440 EM35: ASCIZ /DXO ‘DEL DATA’ BIT 5 NOT SET IN RXES/ 
021750 054104 02 047111 EM36: .ASCIZ /DXO INIT CMD DID NOT READ TRK 1, SEC 1/ 
022017 104 030130 051040 €EM37: ASCIZ /DXO RESTORE CMD ERR/ 
22043 104 30 023440 EM38: ASCIZ /DxXO ‘INIT DONE’ BIT 0 _ SET IN RXES/ 
022111 104 030130 051040 EM39: ASCIZ /DXO READ STATUS CMD ERR/ 
022141 104 030130 4440 EM4O: ASCIZ /DXO INV ADDR BIT 1 NOT A IN RXES/ 
22204 054104 020060 051105 EM41: ASCIZ /DXO ERR BIT NOT SET IN RXCS/ 
022240 054104 047111 EM42: ASCIZ /DXO INIT CMD ERR/ 
022261 104 030130 051440 EM43: ASCIZ /DxX0 SEEK ERR = WRITE SECT/ 
022313 104 030 051440 EM45: ASCIZ /DXO SEEK ERR - READ SECT/ 
22344 054104 020061 042523 EM47: .ASCIZ /DX1 SEEK ERR - WRITE SECT/ 
022576 054104 020061 042523 EM49: ASCIZ /DX1 SEEK ERR = READ SEC 
022427 104 051040 &M51: ASCIZ /DX1 RESTORE CMD ERR/ 
022453 104 051511 0201135 EMS2: ASCIZ aim "DONE' NOT SET/ 
022477 106 046111 020114 EMS55: ASCIZ /FILL & EMPTY BUFF TEST... DATA MISCOMP/ 
022546 040504 04 046440 EM54: ASCIZ /DATA MISCOMP/ 
022565 122 050105 040514 EMSS: ASCIZ /REPLACE DX0...10 BAD SECTORS/ 
022620 042522 046120 041501 EMS6: ASCIZ /REPLACE DX1...10 ~~ SECTORS/ 
022655 104 030130 4040 €M57: ASCIZ /DXO HARD CRC ERR 
022676 054104 0060 040504 EM58: ASCIZ /DXO DATA CRC ERR/ 
022717 104 50040 EM59: ASCIZ /DXO PREV CRC o~ =m DATA OK/ 
022755 104 0305350 044040 EM60: ASCIZ /DX1 HARD CRC ERR 
022776 054104 020061 040504 EM61: .ASCIZ /DX1 DATA CRC ERR 
023017 104 050530 050040 EM62: .ASCIZ /cé1 PREV CRC ERR WITH DATA OK/ 
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023055 051122 051117 DH: .ASCIZ /ERROR # ERR PC/ 
023074 051105 047522 020122 DH?2: “ASCIZ /ERROR # ERR PC ADDR/ 
023120 051105 047522 020122 DH3: “ASCIZ /ERROR # ERR PC ADDR EXPECT RECVD/ 
023162 051105 047522 020122 DHé4: -ASCIZ. /ERROR # ERR PC PR STATUS/ 
023213 051122 051117 DHS: ASCIZ /ERROR # ERR PC EXPECT RECVD/ 
023250 051105 047522 020122 DHé6: ASCIZ /ERROR # DXTST# ERR PC RXCS  RXES RXSA/ 
023315 105 051122 051117 DH?: ASCIZ /ERROR # DXTST# ERR PC RXCS  RXES RACK SECTOR # RETRIE 
23404 0541046 051524 020124 DHB: “ASCIZ. /DXTST # ERR PC RXCS  RXES  RXSA EXPEST RECVD # RETRIES 
023474 EVEN 
3474 025764 001116 000000 DTI: .WORD ERRNUM, SERRPC,0 
023502 025764 001116 004462 DT2: “WORD ERRNUM.$SERRPC.ADDR.O 
023512 025764 001116 004462 DT3: “WORD ERRNUM.SERRPC ADR’ PAT ,MEMHLD ,0 
023526 025764 001116 012302 DTé4: -WORD ERRNUM.SERRPC.SPR 
36 025764 001116 01 DT5 -WORD ERRNUM.SERRPC.T1CHR,TIHLD.O 
023550 025764 001116 012500 DTé6 WORD ERRNUM,SERRPC.T2CHR.T2HLD.O 
025764 001116 01 DT7 .WORD ERRNUM, SERRPC,T3CHR, . 
023574 025764 001116 012700 DT8: -WORD  ERRNUM, SE RRPC OMCHR, COMHLD, 0 
025764 003120 001116 DT9: “WORD ERRNUM.DXTST gE RRPC SRXCS, SRXES, SRXSA,O 
023624 025764 003120 001116 DIT10: .WORD ERRNUM.DXTST. SRXES, BOTRK. “DOSEC ,DOERR,0 
6 003120 001116 177170 DT11 “WORD  DXTST, sperst: RXCS RXES,,RXSA, DOEXP, DOREC ,DOCERR, 0 
023670 025764 003120 001116 DT12:  .WORD ERRNUM.DXTST.SERRPC,SRXCS.SRXES, OT TRE. DISEC.D1ERR.O 
023712 003120 001116 177170 DT13: :WORD ODXTST. $ERREC’ RXCS,RXES,RXSA,DIEXP,DIREC,D1CERR,O 
34 025764 003120 001116 DT14: . WORD ERRNUM,DXTST.$ERRPC.R RXCS. RXES ,RXSA,0 
023752 025764 001116 006252 DT15: .WORD ERRNUM.$ERRPC.EXPO,EBH 
64 025764 001116 006254 DT16: .WORD ERRNUM.$ERRPC_EXP1. EBHLD. 0 
023776 000000 DF: .WORD 0 :OCTAL FORMAT FOR ALL 
024000 000000 “WORD 0 
024002 000000 “WORD 0 
024004 000000 DF 1: .WORD 0 :OCTAL .OCTAL 
024006 000000 “WORD 0 SOCTAL.OCTAL 
024010 000400 “WORD 400 =DECIMAL .OCTAL 
024012 000401 “WORD 401 “DECIMAL DECIMAL 
C24014 000000 ‘ DF2: .WORD 0 sOCTAL ,OCTAL 
024016 000000 “WORD 0 SOCTAL ,OCTAL 
024020 000000 ' “WORD 0 SOCTAL ,OCTAL 
024022 000400 “WORD 400 “DECIMAL ,OC TAL 
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4063 


024024 
024030 


105737 
100002 


123726 

350 
013746 
105366 
002770 
004737 
105357 


vad Ob ongheeeet” 


10:00 


001157 


000002 
000001 
000100 


024074 
025156 


000040 


000002 
000011 
000200 


024302 


024236 
001156 


001154 
000001 


024236 
024302 


001210 
001217 


001211 


B 8 
17-NOV-78 10:00 PAGE 92 
TYPE ROUTINE 


~SBTTL TYPE ROUTINE 


J RAARAAARAAAAAARAERRARAEEAEKEEAAEKEKKEKRKEKEKRARKEKEKREREKEREREEEREKEKKEEE 


: ROUTINE TO TYPE ASCIZ 7k coe 


MESSAGE MUST TERMINATE WITH A 0 it 


THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
: eNOTE1 : SNULL CONTAINS - CHARACTER " BE USED AS THE FILLER CHARACTER. 
> *NOTE2 SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
> *NOTES SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 
> *CALL: 
3*1) USING A TRAP INSTRUCTION 
: ™ TYPE ,MESADR 3zMESADR IS FIRST ADDRESS UF AN ASCIZ STRING 
** 
s* TYPE 
:* ME SADR 
;® 
$TYPE TSTB STPFLG eI: THERE A TERMINAL? 
BPL 1$ ;7BR-IF YES 
HALT :sHALT HERE IF NO TERMINAL 
BR 3$ sé VE 
1$ MOV RO,-(SP) :SAVE RO 
MOV a2 (SP) ,RO :3GET ADDRESS OF ASCIZ STRING 
CMPB #APTENV, SENV ee ING IN APT MOD 
BNE $ + eNO, GO CHECK FOR APT CONSOLE 
BITB #APTSPOOL ,SENVM ; POOL MESSAGE TO APT 
BEQ 62$ NO, GO CHECK FOR CONSOLE 
MOV RO,61$ = SET UP MESSAGE gee Sa FOR APT 
JSR PC,$ATY3 + « SPOOL MESSAGE TO AP 
61$: ; MESSAGE ADDRESS 
62$: BITB #APTCSUP ,SENVM - = APT CONSOLE SUPPRESSED 
BNE seves, SKIP TYPE OUT 
2$: MOVB (RO) +,—(SP) =PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ : BR IF IT ISN'T THE TERMINATOR 
TST (SP) + 321F TERMINATOR POP IT OFF THE STACK 
69$: MOV (SP)+,RO s ;RESTORE RO 
2$: ADD #2, (SP) > ADJUST RETURN PC 
RTI ; ;sRETURN 
4$: ~— a ; ;BRANCH IF <HT> 
a aaa : ;BRANCH IF NOT <CRLF> 
TST (SP) + ::POP <CR><LF> a 
TYPE 7:7: TYPE A CR AND L 
SCRLF 
CLRB SCHARCNT ::; CLEAR CHARACTER COUNT 
BR 2$ ::GET NEXT CHARACTER 
5$: JSR PC .STYPEC ::GO TYPE THIS C TER 
6$: CMPB SFIiLLC,(SP)+ seme at Va FOR FILLER CHARS.? 
BNE 77 1F NO GO GET HAR. 
| MOV SNULL , ~ (SP) :2GET # OF FILLER CHARS. NEEDED 
;AND THE NULL C 
7$: DECB 1(SP) ; sDOES A NULL NEED TO BE TYPED? 
BLT 6$ IF wt POP THE NULL OFF OF STACK 
JSR Pc STYPEC £260 TYPE A NULL 
DECB SCHARCNT ~DO NOT COUNT AS A COUNT 


SEQ 0092 
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4119 024210 000770 BR 7$ : LOOP 
“153 sHORIZONTAL TAB PROCESSOR 
4123 024212 112716 000040 8$: MOVB #" .(SP) ; sREPLACE TAB WITH SPACE 
4124 024216 004737 024236 9$: JSR PC, $TYPEC -: TYPE A SPACE 
4125 024222 132737 000007 024302 BITB #7. $CHARCNT * :BRANCH IF NOT AT 
4126 024230 001372 BNE 9$ ::TAB STOP 
4127 024232 005726 TST (SP) + ;3POP SPACE OFF STACK 
4128 024234 000724 BR 2$ “GET NEXT CHARACTER 
4129 024236 105777 154706 $TYPEC: TSTB  a$TPS *:WAIT UNTIL PRINTER IS READY 
4130 024242 100375 BPL $TYPEC 
4131 024244 116677 000002 154700 MOVB  2(SP),a$TPB :LOAD CHAR TO BE TYPED INTO DATA REG. 
4132 024252 122766 000015 000002 CMPB ss CR, 2( SP) HIS CHARACTER A CARRIAGE RETURN? 
4133 024260 001003 BNE 1$ “BRANCH IF NO 
4134 024262 105037 024302 CLRB § $CHARCNT : YES==CLEAR CHARACTER COUNT 
4135 024266 000406 BR $TYPEX XIT 
4136 024270 122766 000012 000002 18: (MPR, ge (SP) -:1S CHARACTER A LINE FEED? 
4137 024276 001402 BEQ $TYP : =BRANCH IF YES 
4138 024300 105227 INCB PCs ;; COUNT THE CHARACTER 
£139 024302 000000 SCHARCNT:.WORD 0 == CHARACTER COUNT STORAGE 
4140 024304 000207 $TYPEX: RTS PC 
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024350 


024352 
024356 
024362 


024406 
024412 


024416 


024452 


024456 


024474 


024476 


024512 


022737 


117746 
042716 


021627 
001015 
104401 
062706 
123727 
001003 
012777 
000137 


021627 
005 


000176 
154622 


154616 
177600 
000007 


001134 


025136 


154549 


000015 
000004 
000002 
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001140 


000001 


000001 
154472 


154420 


oy’ eh 


Y INPUT ROUTI 


8 
yf ba PAGE 3 


~SBTTL TTY INPUT ROUTINE 


SEAR KERR 


* ENABL 


LSB 


AIA IIOIIIIOIIIOIOIIOIIOIIII ITI TIS SSAA AAA 

® &SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

: *ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 


:*WHEN OPERATING IN TTY FLAG MODE. 
ASWR WR 


SCKSWR: 


T 
SGTSWR: 


19$: 
7$: 


8$: 


9$: 


20$: 


10$: 


CMP 
BNE 


1 
a$ TKS 

15$ 
a$TKB,-(SP) 
#°C177, (SP) 
#7, (SP)+ 

15 
$AUTOB, 41 
15$ 

,SCNTLG 
-$MSWR 
SWREG, -(SP) 
, SMNEW 
-(SP) 

-(SP) 

a$TKS 

7$ 
a$TKB,-(SP) 
#°C177, (SP) 
(SP) #3 

9$ 

SSCNTLC 
#6, SP 
SINTAG, #1 


8 
#100, a$TKS 
GTS$DEV 


(SP) ,425 
10 


21S THE SOFT=-SWR SELECTED? 
IF NO 


CH 
37 CHAR THERE ? 
7 IF ag DON'T WAIT AROUND 
>; SAVE THE CHAR 
::STRIP-OFF THE ASCII 
et IT A CONTROL G? 
RETURN TO USER 
ARE WE RUNNING IN AUTO-MODE? 
‘BRANCH IF YES 


: sECHO THE CONTROL=G (“*G) 


2 CHAR THERE? 
:31F NOT TRY AGAIN 


;sPICK UP CHAR 

;;MAKE IT 7-BIT ASCII 

ree IT A_CONTROL-C? 
sBRANCH IF NOT 


NO 
::YES, ECHO CONTROL-C (*C) 
:: CLEAN UP STACK 
hiarn te to KEYBOARD INTERRUPTS? 


> s BRANCH IF NO 
> s ALLOW TTY KEYBOARD INTERRUPTS 
3; CONTROL-C RESTART 
e315 IT A CONTROL-U? 

CH IF NOT 
;iYES, ECHO CONTROL=-U (“*U) 
GNORE PREVIOUS INPUT 

>:LET' S TRY IT AGAIN 
e215 IT A <CR>? 

“BRANCH IF NO 
si YES, io a oo FIRST CHAR? 


ANCH 
>, SAVE NEW SWR 


SEQ 0094 
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062706 
104401 
123727 


001003 
012777 
000002 


MACY1 
10:00 


000100 
024236 
000060 
000067 


000060 
000002 


000002 
177776 


001164 


000004 
154300 


154274 
177600 
154246 
154242 


177600 
000021 


000001 
154376 


000002 


000004 
000004 
000023 


000140 
000175 
000004 


17$: 


18$: 


11$: 
14$: 


1 etahieeed” ol’ ae’ ys ¥ PAGE 55 
Y INPUT ROUTI 


TYPE 


BR 
-DSABL LSB 


#6,SP 
$CRLF 

$INTAG. #1 
15$ 

#100, a$TKS 


PC ,STYPEC 
i? 


18 

i) eer 
#60, (SP) + 
2(SP) 


2 (SP) 
-2(SP), (SP) 
7$ 

$QUES 


20$ 


3z;CLEAR UP STACK 
:;ECHO <CR> AND <LF> 
tN Re db. KBD INTERRUPTS? 


i TTY KBD INTERRUPTS 


: : BRANCH IF VES 


: SIMULATE CONTROL-U 


CRRA KEKE KEKEKKEEKKEKEKEKKEKKEKEKKKEREKEEKEKEREKKEREEREKEKEEKE 


THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


** 
7 


** 
e 
* 


$SRDCHR: MOV 
MO 


1$: 


2$: 


4$: 


RDCHR 
RETURN HERE 


(SP) ,=(SP) 
4(SP) ,2¢SP) 
a$TKS 


1$ 

a$TKB, 4 (SP) 
rth 4 (SP) 
4 (SP ) #23 
asTKS 

2$ 
a$TKB,-(SP) 
eCl??, (SP) 
(SP) +, #21 
2$ 

1$ 

4 (SP) ,#140 
4(SP) #175 


4$ 
#40,4(SP) 


;sINPUT A SINGLE CHARACTER FROM THE TTY 
;s CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 


sPUSH DOWN THE PC 
:2SAVE THE PS 


:2GET RID OF JUNK IF ANY 
S IT A CONTROL-S? 
ee CH IF NO 


sWAIT FOR A CHARACTER 
;sLOOP UNTIL in THERE 
HARACT 
[31S IT A CONTROL-Q? 
ive "4 DISCARD IT 
RESUME 
Is” IT UPPER CASE? 
® TBRANC H S 
31S As A al CHAR? 


{AAA RARER, Cee KRREERERRERERERRRRRRRRERR RRR RRR RR 


>*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


SEQ 0095 


PDT=11 EXERCISER 
C 17-NOV-78 1 


VKDAB.P11 


024750 


025144 


y— 


£00 


025076 
025106 


000003 
025106 


011116 
000177 


001164 
025074 
025074 
000015 


177777 
001166 


000004 
025076 


005015 
006525 
005015 
051412 


000040 
042516 
000 


cy11 wee 


000002 
000004 


000 
000012 
051127 
020127 


oy eae 


Y INPUT ROUTI 


:*CALL: 


SRDLIN: 
1$: 


2$: 


‘O$: 
4$: 
3$: 


9$: 


STTYIN: . 
SCNTLC: . 
SCNTLU: — 
SCNTLG: 
SMSWR: 


SMNE WW : 
EVEN 


RDLIN 
RETURN HERE 


"ASC IT 
ASCIZ 


8 
4 i PAGE 56 


;; INPUT A STRING FROM THE TTY 
; sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
; TERMINATOR WILL BE A BYTE OF ALL O0°S 


R3,-(SP) SAVE R3 E 
#STTYIN,R3 SIGET ADDRESS 
WSTTYIN+8.,R3  ::BUFFER FULL? 
4$ -:BR IF YES 
-:GO READ ONE CHARACTER FROM THE TTY 
(SP) +, (R3) :3GET CHARACTER 
#3, (R3) :1S IT A CONTROL-C? 
10$ i: CH IF NO 
,SCNTLC fh hin; A CONTROL=-C (*0O) 
(SP) +,R3 : :RESTORE R3 
GTS$DEV ;3GOTO CONTROL~C RESTART 
#177, (R3) .: T A RUBOUT 
a ::SKIP IF NOT 
, $QUES ::TYPE A '?' 
:;;CLEAR THE BUFFER AND LOOP 
(R3) ,9$ ::ECHO THE CHARACTER 
#15, (R3)+ ;:CHECK FOR RETURN 
4 LOOP IF NOT RETURN 
-1(R3) ST CLEAR RETURN (THE 15) 
,$LF i: TYPE A LINE FEED 
(SP) +,R3 > RESTORE R3 
(SP) ,-(SP) ;sADJUST THE STACK AND PUT ADDRESS OF THE 
4(SP),2(SP) 3 FIRST ASCII CHARACTER ON IT 
ASTTYIN,4(SP) 
: RETURN 
: STORAGE FOR ASCII CHAR. TO TYPE 


TERMINATOR 
8. : :RE SERVE 8 we ree FOR TTY INPUT 
/*C/<15><12> -- CONTR 

/*U/<15><12> S CONTROL “yf 
/*G/<15><12> ==CONTROL ''G’' 
<15><12>/SWR = / 


/ NEW = 


SEQ 0096 


PDT=11 EXERCISER 


CVKDAB .P11 


025150 


025414 


WO WWW 


Nm 
auewcs & 
—=NONAO NWNN 


SM IO 
~~“ 
NOW 
VI™ 


Seeeugxsses = 


MACY11 setheua™ f+ 10:00 PAGE g, 8 


17-NOV-78 10:00 


000001 
000001 
000001 


025412 
000001 
000100 
000004 
000002 
001170 
001204 


001204 
001206 
000004 


000002 
177776 
024024 
025414 
007210 
001170 


025414 
025412 


025414 


001210 
001211 


000004 


001170 
025324 
000004 


001172 
000004 


T COMMUNICATIONS ROUTINE 


~SBTTL APT COMMUNICATIONS ROUTINE 


> RRA RAEKEAAAAAAAEAEEEREREEKEEKEEEREKEREEREERKEREEERERREEKKKKEEE 


TY¥1: MO #1, SFFLG 
SATY3: MOVB #1,SMFLG 
BR SATYC 
SATY4: MOVB #1,SFFLG 
SATYC: 
MOV RO,-(SP) 
MOV R1,-(SP) 
TSTB SMFLG 
BEQ 5$ 
CMPB MAPTENV, SENV 
BNE 3 
BITB #APTSPOOL , SENVM 
BEQ 3$ 
MOV a4(SP) ,RO 
ADD #2,4(SP) 
1$: TST SMSGTYPE 
BNE 1$ 
MOV RO, S$MSGAD 
2$ TSTB (R0)+ 
SUB SMSGAD , RO 
ASR RO 
MOV RO, SMSGLGT 
_ #4, SMSG1YPE 
3$: MOV a4 (SP) ,4$ 
ADD 2,4( 
MOV 177776, =(SP) 
JSR ,bTY 
4$: . WORD 
S$: 
10$: TSTB SFFLG 
BEQ 12$ 
TST ow 
BEQ 12$ 
11$ 1ST SMSGTYPE 
BNE 
MOv aA tSP). SFATAL 
ADD #2,4(SP) 
INC SMSGTYPE 
12$: CLRB SFFLG 
CLRB SLFLG 
CLRB SMFLG 
MOV (SP)+,R1 
MOV (SP) +. RO 
RTS PC 
L BYTE 
$LFLG: .BYTE 0 
SFFLG BYTE 0 
EVEN 
APTSIZE=200 
APTENV=001 


APTSPOOL =100 


3;TO REPORT FATAL ERROR 
3;TO TYPE A MESSAGE 


::TO ONLY REPORT FATAL ERROR 
::PUSH RO ON STACK 
> =PUSH R1 ON STACK 
2 SHOULD TYPE A MESSAGE? 
: : OPERATING UNDER APT? 
: SHOULD. SPOOL MESSAGES? 
-:]F NOT: BR 
“GET MESSAGE ADDR. 
-=BUMP RETURN ADDR. 

:2SEE IF DONE W/ LAST XMISSION? 
::PUT ADDR IN MAILBOX 

FIND END OF MESSAGE 


EGET START OF MESSAGE 


SSTELL APT TO TAKE MSG. 


;;PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 
PUSH ie ON STACK 
CALL TYPE MACRO 


$4 ed —" FATAL ERROR? 
; | RUNNING UNDER AP; ? 
NOT: BR 

; 7F INI SHED yf MESSAGE ? 

:IF NOT: WAIT 
GET ERROR a 

;BUMP RETURN ADDR. 

ee TELl abi TO ay ERROR 
7;CLEAR FATAL FLAG 
;;CLEAR LOG FLAG 
¢ CLEAR MESSAGE FLAG 


sPOP STACK INTO R1 
: :POP STACK INTO RO 


>;LO 
>: FATAL FLAG 


SEQ 0097 


H 8&8 
PDT=11 EXERCISER MACY11 30G(1063) 17=NOV-78 10:00 PAGE 98 
CVKDAB.P11 17=NOV=78 10:00 APT COMMUNICATIONS ROUTINE SEQ 0098 


4352 000060 APTCSUP=040 


PDT=11 EXERCISER 
C 17-NOV-78 


VKDAB.P11 


025416 


025554 


122737 
001007 
113737 
004737 

000 
000777 
005777 
100002 
000000 
104407 
000002 


ry 4 an Pe hms oak y 10:00 PAGE bg ° 


10:00 


025732 
001165 


000001 


001114 
025166 


153572 


RROR HANDLER ROUTINE 


.SBTTL ERROR HANDLER ROUTINE 


SERRA EEEEEKEKKKKEEKEKEKEKEKERREKEKEKEREKKEEEEKEEKEERKEKKKEE 


CRTHIS ROUTINE WILL_INCREMENT THE ERROR FLAG AND THE 
+ ITEM 


; *SAVE 


1$: 


20$: 


21$: 


22s: 
2$: 


3$: 


THE ” 
GO TOM 


ERROR COUNT, 


NUMBER AND THE ADDRESS OF THE ERROR CALL 


; *AND YPE ON ERROR 
; * THE SWITCH OPT TONS PROVIDED BY THIS ROUTINE ARE: 
5= HALT ON ERROR 


INHIBIT pase TYPEOUTS 


BELL ON ERR 
; ;ERROR=EMT AND N=ERROR ITEM NUMBER 


N 


SERFLG 
7$ 


STSTNM,@DISPLAY 
#81T10,aSWR 


$ 
, SBELL 


$ERTTL 

(SP)  SERRPC 

#2, SERRPC 
@SERRPC $1 TEMB 
#81713, aSWR 
20$ 


PC ,MYTYPE 
SCRLF 


#APTENV , SENV 
$] yn, P ti 


PC,SATY 
0 


73 TEST FOR Ae IN SOF T=SWR 
SET THE ERROR FLA 
:DON*T LET THE FLAG GO TO ZERO 
; ;DISPLAY TEST NUMBER AND ERROR FLAG 
L ON ERROR? 


se T THE NUMBER OF ERRORS 

;sGET ADDRESS OF ERROR INSTRUCTION 
;zSTRIP AND SAVE THE ERROR ITEM CODE 
:SKIP ester IF SET 


; EOUTS 
::GO TO USER ERROR ROUTINE 


; RUNNING IN APT MODE 

;sNO,SKIP APT ERROR REPORT 

;sSET ITEM NUMBER AS ERROR NUPBER 
;sREPORT FATAL ERROR TO APT 


;;APT ERROR LOOP 

;;HALT ON ERROR 

::SKIP IF CONTINUE 

$3 T ON ERROR! 

:: TEST FOR CHANGE IN SOF T-SwR 
: sRETURN 


SEQ 0099 


J 8 
Ang + pete § yd bh 30G(1063) 17-NOV-78 10:00 PAGE 100 


VKDAB.P11 17=NOV-78 10:00 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0100 
re -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
4398 SERRE EEEEEKKKEKEEKERRKERKKKEKKEKKEKEEEKEKEKRKEKKKEKKKKKEK 
4399 * STHIS ROUTINE USES THE ‘‘ITEM CONTROL rh ies Ma TO DETERMINE WHICH 
4400 : SERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM T "ERROR TABLE'’ (SERRTB), 
rey -*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
4403 025556 SERRTYP: i Poe Bi be 
4404 025556 104401 001165 TYPE , CRLF ee ye RETURN'’ & ‘LINE FEED 
4405 025562 010046 MOV RO,-(SP) AV 
4406 025564 005000 CLR RO SBT CKUP THE ITEM INDEX 
4407 025566 153700 001114 BISB a4$] TEMB,RO 
4408 025572 001004 BNE 1$ IF ITEM NUMBER IS ZERO, JUST 
4409 “TYPE THE PC OF THE ERR OR 
4410 025574 013746 001116 MOV SERRPC ,-(SP) +3 SAVE SERRPC FOR TYPEOUT 
4411 ee OR ADDRESS 
4412 025600 104402 TYPOC 3;GO TYPE=-OCTAL ASCII(ALL DIGITS) 
4413 025602 000445 BR 10$ =GET OUT 
4414 025604 005300 1$: DEC RO : ADJUST THE og SO THAT IT WILL 
4415 025606 006300 ASL RO g3 WORK FOR THE ERROR TABLE 
4416 025610 00630( ASL RO 
4417 025612 006300 ASL RO 
4418 025614 062700 001250 ADD § #$ERRTB,RO ::FORM TABLE POINTER 
4419 025620 012037 025630 MOV (RO) +,2$ ;zPICKUP ‘ERROR MESSAGE’ POINTER 
4420 025624 001404 BEQ 3$ ::SKIP TYPEOUT IF NO POINTER 
4421 025626 104401 TYPE 2 TYPE THE "ERROR MESSAGE’ ’ 
4422 025630 000000 2$: » WORD 0 :;" ERROR MESSAGE POINTER at HERE 
4423 025632 104401 001165 TYPE , CRLF ; 2° ‘CARRIAG GE RETURN’’ & ‘'L FEED*’ 
4424 025636 012037 025646 3$: MOV (RO)+,4$ ;zPICKUP ‘DATA HEADER’’ POINTER 
4425 025642 001404 BEQ 5$ ::SKIP TYPEOUT IF O 
4426 025644 104401 TYPE >; TYPE THE ‘DATA HEADER’’ 
4427 025646 000000 4$: .WORD 0 :3\DATA HEADER™ POINTER GOES HERE 
4428 025650 104401 001165 TYPE ,SCRLF 5 naa RETURN'’ & ‘LINE FEED 
4429 025654 010146 5$: MOV R1,-(SP) >: SAVE R1 3 
4430 025656 012001 MOV (RO) + R1 ::PICKUP ‘DATA TABLE’" POINTER 
4431 025660 001415 BEQ OF ;;BR IF NO DATA TO BE TY PED 
4432 025662 012000 MOV (RO) +,RO 7 PICKUP DATA F FORMAT’ POINTER 
4433 025664 105720 6$: TSTB (RO) + $5 CTL OR “DEC IMAL** 

' 4434 025666 001003 BNE 7$ 7;BR IF DECIMAL 
4435 025670 013146 MOV a(R1)+,-(SP) ::SAVE a(R1)+ FOR TYPEOUT 
4436 025672 104402 TYPOC ::;GO TYPE--OCTAL ASCII(ALL DIGITS) 
4437 025674 000402 RR 8$ 
4438 025676 7$: 
4439 025676 013146 MOV @(R1)+,=-(SP) >;SAVE a(R1)+ FOR TYPEOUT 
4440 025700 104405 TYPDS a TYPE=-DECIMAL ASCII ahi SIGN 
4441 025702 005711 8$: TST (R1) :I1S THERE ANOTHER NUMBER? 
4442 025704 001403 BEQ 9$ : :BR IF NO 
4445 025706 104401 025726 TYPE ,11$ «TYPE TWO(2) SPACES 
rere 025712 000764 BR 6$ 83 
4446 025714 012601 9$: MOV (SP)+,R1 tis ih R1 
4447 025716 012600 10$: MOV (SP)+,RO 7 ¢RES TORE RO 
4448 025720 104401 001165 TYPE , SCRLF :3 "CARRIAGE RETURN’’ & ‘LINE FEED’ 
4449 025724 000207 URN 


RTS PC sRET 
4450 025726 020040 000 11$: ASCIZ / / ::TWO(2) SPACES 
4451 025732 ~EVEN 


kK 8 
Ag EXERCISER MACY11 30G(1065) 17=-NOV-78 10:00 PAGE 101 


VKDAB.P11 17-NOV-78 10:00 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0101 
4452 

rm 

4455 025732 113737 001114 025764 MYTYPE: MOVB  $ITEMB.ERRNUM  :FOR ERROR TYPEOUT 

4456 025740 013737 013210 001174 MOV SRXSA,$TESTN :FOR AP 

4457 “APT PRINTS STESTN & SFATAL IN THAT ORDER. 
4458 *$TESTN WILL BE FLOPPY RXSA 

4459 “$FATAL IS ERR 

4460 025746 004737 025556 JSR PC, $ERRTYP -TYPE ERR MSG 

4461 025752 005237 025766 INC TERR 

4462 025756 005237 025772 INC PERR 

A465 025762 000207 RTS PC 

4465 025764 000000 ERRNUM: 0 :FOR ERR TYPEOUT 

4467 025766 000000 TERR: 0 : TOTAL ERROR COUNT 

4468 025770 000000 “SERR: 0 “TOTAL SOFT ERR COUNT 

4469 025772 000000 PERR: 0 =PASS ERR COUNT 

4470 025774 000000 PSERR: 0O “PASS SOFT ERR COUNT... ALL FOR EOP TYPEOUT 


L 
Ag. EXERCISER MACY11 30G(1063) 17-NOV-78 10:00 PAGE 102 


VKDAB.P11 17-NOv-78 10:00 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0102 
rye .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
4473 SERRE EEEEEREREKEEEEEEERERREEEEEEEREEEEEEEERREKKEEK EE 
4474  STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
4475 ; *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
4476 : *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
4477 :*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
4678 = *REPLACED WITH SPACES. 
4479 = *CA Lis 
4480 :* MOV NUM, -(SP) :PUT THE BINARY NUMBER ON THE STACK 
4481 * TYPDS 260 TO THE ROUTINE 
4483 025776 $TYPDS: 
4484 025776 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
4485 026000 010146 MOV R1.-(SP) -:PUSH R1 ON STACK 
026002 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
4487 026004 010346 MOV R3,=-(SP) ::PUSH R3 ON STACK 
026006 010546 MOV R5.-(SP) ::PUSH R5 ON STACK 
4489 026010 012746 020200 MOV #20200,-(SP) | ::SET BLANK SWITCH AND SIGN 
026014 016605 000020 MOV 20(SP) ,R5 ::GET THE INPUT NUMBER 
4491 026020 100004 BPL 1$ ;;BR IF INPUT I . 
4492 026022 005405 NEG R5 ::MAKE THE BINARY NUMBER POS. 
4493 026024 112766 000055 000001 MOVB #'=,1(SP) ::MAKE THE ASCII NUMBER NEG. 
4494 026032 005000 1$: CLR RO ;3ZERO THE CONSTANTS INDEX 
4495 026034 012703 026212 MOV #$DBLK ,R3 :SETUP THE OUTPUT POINTER 
4496 026040 112723 000040 MOVB = #" ~,(R3)+ ::SET THE FIRST CHARACTER TO A BLANK 
4497 026044 005002 2$: CLR R2 ::CLEAR THE BCD NUMBER 
4498 026046 016001 026202 MOV $DTBL (RO) .R1 ::GET THE CONSTANT 
4499 026052 160105 3$: SUB R1,R5 ::FORM THIS BCD DIGIT 
4500 026054 002402 BLT 4$ : BR IF 
4501 026056 005202 INC R2 >: INCREASE THE BCD DIGIT BY 1 
4502 02 000774 BR 3$ 
4503 026062 060105 4$: ADD R1,R5 :ADD BACK THE CONSTANT 
4504 026064 005702 TST R2 $3 CHECK IF BCD DIGIT=0 
4505 026066 001002 BNE 5$ :FALL THROUGH IF 0 
4506 026070 105716 TSTB ~——- (SP?) STILL DOING LEADING 0°S? 
4507 026072 100407 BM | 7$ ::BR IF YES 
4508 026074 106316 5$: ASLB — (SP) ; sMSD? 
4509 026076 103003 BCC x3 : IF NO 
4510 026100 116663 000001 177777 MOVB _—«x1(SP),=1(R3) =: YES=-SET THE SIGN 
4511 026106 052702 000060 63: BIS #'0,R2 ::MAKE THE BCD DIGIT ASCII 
4512 026112 052702 000040 7$: BIS #" Ro -:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
4513 026116 110223 MOVB  _R2, (R3) + ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
4514 026120 005720 TST (RO) + =: JUST INCREMENT ING 
4515 026122 020027 000010 CMP RO,#10 ;3CHECK THE TABLE INDEX 
4516 026126 002746 BLT 2$ :GO DO THE NEXT DIGIT 
4517 026130 003002 BGT 8$ ::GO TO EXIT 
4518 026132 010502 MOV R5,R2 :3GET THE LSD 
4519 026134 000764 BR 6$ CHANGE TO ASCI] 
4520 026136 105726 8$: TSTB ~—s_ (SP) + ; sWAS THE LSD THE FIRST NON-ZERO? 
4521 026140 100003 BPL 9$ IF NO 
4522 026142 114663 177777 177776 MOVB <=1(SP),-2(R3)  ::YES==SET THE SIGN FOR TYPING 
4523 026150 105013 9$: CLRB = (R33) -:SET THE TERMINATOR 
4524 026152 012605 MOV (SP)+_,R5 >:POP STACK INTO RS 
4525 026154 012603 MOV (5?) +_R3 3: STACK INTO R3 
4526 026156 012602 MOV (SP) +_R2 :.POP STACK INTO R2 


PDT=11 EXERCISER 
17-NOV~-78 


CVKDAB.P11 


026212 


012601 


0 
000004 


M 
MACY11 30G(1063) 17=-NOV-78 10:00 PAGE 103 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


10:00 

026212 

000002 000004 
$DTBL: 
$DBLK: 


MOV 
MOV 
TYPE 
MOV 


RTI 
10000. 
1000. 
: 

10. 
-BLKW 


(SP)+,R1 ::POP STACK INTO R1 
(SP)+-RO *:POP STACK INTO RO 
$DBLK *:NOW TYPE THE NUMBER 
3(SP) ,4(SP) = :ADJUST THE STACK 
(SP) +, (SP) 

::RETURN TO USER 
4 


SEQ 0105 


same 1 EXERCISER 


VKDAB.P11 


seeeegs 


2) 
mor 
i) 


seeRess 

HRINUSAKSRERSE 
SS2NSS595558 
NKIWA NIWA Ww 


RN 
wR 


ry 4 once” 
17-NOV=78 10:00 


000000 
000001 
026447 
000002 
000001 
000006 
000005 
026447 


000006 
026446 
026445 
000012 


026446 
177770 


026445 


026445 
026447 
026444 


17-NOV-78 10:00 


PAGE 104 
BINARY TO OCTAL (ASCII) AND TYPE 


~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


FERRARA EEREKEEEKEKEREKKKEKEEEKEREKKEEKEKEEEKKEEEKKKKKKKE 


SRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


; OC TAL (ASCII) NUMBER AND TYPE IT 
ae HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


orerererererara 


NUM ,- (SP) 


;sNUMBER TO BE TYPED 
:sCALL_FOR TYPEOUT 
:eN=1 oR § FOR NUMBER OF DIGITS TO TYPE 


:1=TYPE LEADING ZEROS 
: I0=SUPPRESS LEADING ZEROS 


LPT or BE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


>*$TYPOS OR $ 
MOV 
TYPON 


“#CALL 


*CALL 


2$: 


3$: 


MOV 
TYPOC 


NUM, ~(SP) 


NUM ,-(SP) 


@(SP) ,~(SP) 


1(SP) , SOF ILL . 


:sNUMBER TO BE TYPED 
;sCALL FOR TYPEOUT 


:*$TYPOC=--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


: =NUMBER TO BE TYPED 
:zCALL FOR TYPEOUT 


:sPICKUP THE MODE 

:zLOAD ZERO FILL SWITCH 

; NUMBER OF DIGITS TO TYPE 
: sADJUST RETURN ADDRESS 


7sSET THE ZERO FILL SWITCH 
aa FOR SIX(6) DIGITS 
fhrd — ITERATION COUNT 


; R5 
SIGE THE NUMBER OF DIGITS TO TYPE 


;sSUBTRACT IT FOR MAX. ALLOWED 

2c aes IT FOR USE 

;;GET THE ZERO FILL SWITCH 

ar we THE INPUT NUMBER 
:CLEAR THE OUTPUT WORD 

; sROTATE MSB INTO ‘'C’’ 


:GO DO MSB 
:7FORM THIS DIGIT 


:GET {SB OF THIS DIGIT 
TYPE - DIGIT? 


:3GET RID OF JUNK 
ee TEST FOR 0 


oe i wre P THIS Q? 


SEQ 0104 


PDT-11 EXERCISER 
CVKDAB. 


P11 


MACY11 a 
17-NOV-78 10:00 


000060 
900040 
026442 
026442 
026444 


000002 000004 


17=-NOV-78 


4$: 


6$: 


8$: 
SOCNT: 


SOFILL: . 
SUMODE: .WOR 


3 
10:00 PAGE 105 
BINARY TO OCTAL (ASCII) AND TYPE 


;DON*T SUPPRESS ANYMORE 0'S 
$ IMAKE THIS DIGIT ASCII 
E ASCII 


i: IF NOT ALREADY 
;SAVE FOR TYPING 

::G0 TYPE THIS DIGIT 
1188 LF MORE TO DO 


:; INSURE LAST DIGIT fal T A BLANK 
+ 2G0 DO a Fe ST DIGIT 


7zRES R3 

32SET THE STACK FOR RETURNING 
; ;RETURN 

7 STORAGE FOR ASCII DIGIT 


7sZERO FILL SWITCH 
; NUMBER OF DIGITS TO TYPE 


PDT=11 EXERCISER 


C 


VKDAB.P11 


026502 


026516 
026520 
026522 


026532 


17-NOV~78 


010046 
016600 
005740 
111000 


006300 
016000 
000200 


011646 
016666 
000002 


025776 
024356 


011116 


003174 


ne OH 306(1063) 
10:00 


000002 


026504 


000004 000002 


17-NOvV-78 


TRAP DECODER 
.SBTTL TRAP DECODER 


Cc 9 
10:00 PAGE 106 


SEQ 0106 


SERRA RAAKERAARRAEAKEEEEEEEERKKKEKEEKRKERKEKEEKEEREKEKEKEKKEKEREKKEKEKEKEE 


:STHIS ROUTINE WILL ea THE en BYTE OF THE ‘‘TRAP’' INSTRUCTION 

; *AND HE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: 


USE IT TO INDEX 


MOV 


RO,-(SP) 
2(SP) ,RO 
-(RO) 


(RO) ,RO 


R 
$TRPAD (RO) ,RO 
RO 


THROUGH T 


7 SAVE RO 


+ GET TRAP 2 see 


sBACKUP BY 
: GET RIGHT BYTE OF TRAP 
sPOSITION FOR INDEXING 


>: INDEX TO TABLE 
::GO TO ROUTINE 


;sTHIS IS USE TO HANDLE THE ‘'GETPRI'* MACRO 
$TRAP2: MOV 


MOV 


RTI 


(SP) ,-(SP) 


4(SP) ,2(SP) 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE eee ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION 


LSTAD: 


. END 


ROUT INE 


$TRPAD: zWORD 


GTSDEV 


STRAP 


2 
+e CALL= TYPE 
8 ; CALL= TYPOC 


I CACL=TYPON 
:-CALL=TYPDS 


; = CALL=GTSWR 


; s CALL=CKSWR 
; s CALL=RDCHR 
;; CALL=RDLIN 
:-CALL=GTDEVM 


MOVE THE PC DOWN 
;;MOVE THE PSW DOWN 
: sRESTORE THE PSW 


TRAP+1 (104401) 


TRAP +5 (104405) 
TRAP+6 (104406) 
TRAP+7( 104407) 


TRAP+12(104412) 


s;MAX ADDR FOR 8K WITH APT = 37400 


s;MAX ADDR FOR 8K NO APT BUT TO SAVE ABS 
START 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOF T-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 

“C WILL OPEN UP SDEVM 


LOADER = 57500 


Ag EXERCISER 


VKDAB.P11 


ABASE = 176500 
ACDW1 . 


ACDW2 
ACOM 017170 
ACPUOP= 


: 


= 
Sees coEscesEECenCEEEENESEE 


Tue n i i 


T 


secPepepereeceeeeee 


176612 
17661 
AMPRSRV 012622 
AMRVEC 


APRIOR= 000000 
APTCSU= 000040 
APTENV= 000001 


MACY11 30G(1063) 

10:00 
6694 1151 
1151 

1151 

1907 2594 
1151 1166 
1673* 1687* 
1157 

1151 

1151 

1151 

11517 

1151 

1151 

1151 

1157 

1151 

1151 

1151 

11517 

1151 

1151 

1151 

1151 1157 
6694 1157 
1151 1162 
1151 1163 
1151 1154 
1151 1179 
11517 1183 
1151 1186 
1151 1189 
11517 1173 
11517 1181 
1151 1184 
11517 1187 
8834 1884 
8424 1895 
8414  1596* 
1891 31054 
8154 1890 
1151 1159 
11517 1160 
1151 1153 
1822 1827 
1157 1174 
1151 1182 
1151 1185 
11517 1188 
8444 3102* 
8434 1897* 
1892 31014 
8164 

1151 1156 
1157 

4095 43524 
4086 4308 


D 
17=NOV-78 10:00 PAGE 1 


1192 


40624 
1692* 


1193 


1886 
$105 
1597* 


1871 


3101* 


4350a 


08 
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1720* 1725* 17534 4062 


2612 
1627* 1887* 1896* 1920* 1921* 


18794 


3117* 


4483 


2613* 


2614* 


SEQ 0107 


.. 7 
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VKDAB.P11 17-NOV-78 10:00 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0108 
APTSIZ= 000200 1559 43494 
APTSPO= 000100 4088 4310 43514 
ASWREG= 000000 1151 1164 
ATESTN= 000000 1151 1155 
AUNIT = 000000 1151 1158 
AUSWR = 000000 6694 1151 1165 
AVECT1= 000300 6694 11517 1190 
AVECT2= 000000 1151 1191 
BITHLD 011662 2839* 2843 28574 
BITO = 000001 7884 956 1052 1926 
1T0O0 = 900001 7784 788 
BITO1 = 000002 7774 787 
ITO2 = 000004 764 786 
BITOS = 000010 7754 785 
BITO4 = 000020 7744 784 
BITOS = 000040 7734 783 
1T06 = 000100 7724 782 
BITO7 = 000200 7714 781 
BITO8 = 000400 7704 780 
BITOS = 001000 7694 779 
BIT1 = 000002 7874 921 943 979 1051 1960 
BIT10 = 002000 7684 936 9 1820 4371 
BIT11 = 004000 7674 969 1010 1879 
BIT12 = 010000 7664 935 950 968 985 1009 1740 1773 1807 1870 1905 1923 1948 
1982 2016 3476 3490 3509 3837 3851 3871 
BIT13 = 020000 76 934 949 967 1957 4378 
BIT14 = 040000 7644 933 948 966 84 99 1991 
BIT15 = 100000 6 932 947 965 983 1008 1027 1782 3597 3776 
BIT2 = 7 942 978 1050 1994 
BITS = 000010 7854 941 977 1016 1049 1833 1882 2605 
BIT4 = 000020 7844 976 1015 1030 1031 1048 
BITS = 0 834 940 g 1014 1047 
BIT6 = 000100 7824 939 955 974 1013 1029 
BIT? = 000200 7814 938 954 973 10172 1028 1046 1760 2574 
BIT8 = 00 7804 972 1011 2032 2128 2166 2225 2275 2299 2344 2410 2447 
BIT9 = 000 7794 937 971 2034 2147 2174 2250 2280 2373 
BPTVEC= 000014 7954 
EAK = 1 9564 
B110 = 001000 904 
B1200 = 003400 8954 
B134 = 001400 8914 
B150 = 002000 8924 
1800 = 000 8 
B19200= 007400 90 
B2000 = 004400 8974 
B2400 = 005000 8984 1928 1930 1962 1964 1996 1598 
B300 = 002400 8934 
B3600 = 005400 8994 
BS = 006000 
B50 =6© =: 000000 8884 
= 003000 8944 
B7200 = 006400 9014 
B75 = 000400 8894 
B9600 = 00/000 9024 1787 1884 1886 2612 
CDET = 010000 9354 9684 
CHARS = 000000 9144 


PDT=11 EXERCISER 


CVKDAB.P11 
CHAR6 = 
CHAR? = 000010 
CHARS = 000014 
CHRS = 
CHR6 = 002000 
CHR7 = 000 
CHR8 = 000 
CKSWR = 104407 
CKOBAD 011754 
CKIBAD 012066 
CLK = 177546 
CLKTST 004466 
CLKVEC= 000100 
LOCK 017244 
CLOPT 017102 
CLPRES 010742 
CLRBAD Q11 
CLT1 017122 
CLT2 017133 
LTS 017144 
CLITST 5340 
CL2TST 005530 
CL3TST 5662 
OMC 012700 
COMHLD 012702 
COMPAT 020350 
COMP! 003132 
COMP2 003134 
CONSOL= 01 
COPDUN 020256 
COPFLG 003130 
COPMSG 020155 
COPY 016354 
CR = 000015 
CRC = 000010 
CRLF = 000200 
CTHLD 0114 
CTREG 011470 
CTREG1 011472 
CTS = 020000 
ae Get. 
CT2 = 050000 
= © 
DAT CHK Daheh 
DDISP = 177570 
DE VM 20445 
DF 023776 
DF 1 024004 
DF 2 024014 
DH1 023055 


9154 
9164 
9174 


MACY11 30G6(1063) 
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1787 


17-NOV-78 


1884 


SUR 


Mr ~woo 


1886 


46544 


—*’ a3 3) ow) ot - 2) --3 
MIMS & No & WRNY 
ODWNOOWON 
Sw UO VIO IPO 


1928 


1763* 


3102 
3106 
1515* 
1587 
1646 


4132 
4142 


2810* 
2815* 
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1930 


3106 


31214 


1585 
1639 


3895* 


4142 


we DM 
WWINORIW— VIWOO 


R 


— ws J 3 3 3 
er hk a en 
OW 


1962 


3110 
3149* 


1637 
2134 


- @—— 2d eed eed oe ed =D 


1964 


3112* 
3150 


2182 
21535 


1996 


3115* 
3152 


2512 
2285 


1998 


31204 
4062 


2516* 
2517* 


2612 


3128 


3593 
3595 


3129 


3772 


3774 


SEQ 0109 


3152 


CY11 30G6(1063) 


PDT=11 EXERCISER MACY 
CVKDAB.P11 17-NOV-78 10:00 
DH2 023074 1213 
DH3 023120 1219 
DH4 023162 1231 
DH5 023213 1234 
DH6 023250 1249 
1357 
DH7 023315 1252 
1381 
DH8 023404 1264 
DISPLA 001142 11544 
DISPRE 000174 10614 
DNA = 100000 10084 
DNAIE = 0 10144 
DONE = 200 9384 
DROP 017647 2587 
DRVO 017232 2591 
DRV1 017237 2592 
DSC = 100000 9654 
DSI = 100000 9324 
DSIE = 000040 9404 
SRDY = 001000 9374 
DSWR = 177570 7094 
DTR = 9434 
DT1 023474 1228 
DT10 023624 1252 
DT11 23646 1264 
DT12 023670 1270 
DT13 023712 1282 
DT14 23734 1309 
40624 
DT15 023752 1396 
DT16 023764 1399 
DT2 023502 1213 
DT3 023512 1219 
DT4 023526 1231 
DT5 23536 1234 
DT6 023550 1237 
DT7 023562 1240 
DT8 023574 1243 
DT9 023606 1249 
DUN 017756 1743 
DXTST 003120 14814 
3523 
DXTSTO 006014 1916 
DXTST1 006256 1644 
DXTST2 006712 2187 
DXTSTS 007254 2286 
DXTST4 007430 2300 
DXTSTS 007702 2345 
DXTST6 010020 2411 
Dx1 20 10304 
3714 
DOBAD 002624 14614 
DOBUF 2424 14604 
DOCDAT 014104 3384 
DOCERR 002414 1456@ 


* 


ee ee ee ee ee 
WWIII WIUWAPOPOPonN 
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¢ 9 
10:00 PAGE 111 
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40624 


2047 


2 364* 


2061 


2413* 


5578 


2912 
3921 


c415* 


2075 


2451* 


3600 


4045 
5424 


4073 


3016 


3439 


1345 
40624 
1369 


4032 


2615 
1321 
40624 
40624 
1405 


40624 
3364 


3656 


3445s 


1348 
1372 


2614 
40624 


1408 


3426 


3671 


3449» 


1551 
1375 


1411 


3450 


3684 


4062 


SEQ 0110 


1354 
1378 


1414 


3521 


3705 
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CVKDAB.P11 —-17=NOV=78 10:00 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0111 
DOCMER 002412 14554 3290* 3399% 3409% 3417 3466% 3504s 
DOCNT 002402 14514 2219s 77 = 3506* = 3507 
DOCRC 002422 1459# 3345x 3349% 3419 4 3446 
ISP 013174 2136" 2139 2241 2306*  2328%  2348% 2366* 2417% 2426% 2456% 3197 31984 3218+ 
3237* 3261% 3296% 3310* 3330% 3339% 3384% 3534" 3543" 3555"  3563« 
014746 3454 = 3525 3534 3555 39 33563 3573 
014046 2328 48=—s 33370-33824 
DOERR 002404 14524 2119% 2217e «= 2303* 2323% = 2363e «= 244% = 3255. 3268 «= 3278 «= 3289 «= 3293% = 3325 
3327" 3353 3363* 3465* 3503* 4062 
DOEXP 002416 14574  3407* 4062 
DOFBUF 013212 2139 = 2417S 3214 = 3286S 3296 
DOINIT 014632 2306 48-35 324 
DOINV. 014730 2456 35630 
DONEXT 014610 3339 «= «33351 34470 35214 
DONXT1 014330 34654 3522 
DONXT2 014524 35034 3524 
DOPAT 0024 1450# 2118* 2168 3495» 
DORCHK 013622 3310 33234 
DOREC 002420 14584 3408* 4062 
DOREST 014656 2348 35434 
DORSEC 0135 2136 = 2241S 2366 = 3291S 3305H@ = 3329S 3330 3452 847% 
DOSEC 002410 1454# 2121% 2236" 2326" 2361*% 2453% 2479 2909 3217 3235 3279 3281* 3283 
3285* 3288* 3307 3403 3467 3469 3471 3473" 3487" 4062 
DOSTAT 014712 2426 3555# 
DOTMO 011474 2170 2776* 2787* 27954 
DOTRK 002406 1453@ = 2115* 2191" = 2198* == 2231" = 2325" = 2360" = 2452e = 2478e 2907 = 33215. Ss 3233S 3305 
3401 3480 3484 3486* 4062 
DOWCHK 013332 3237 32534 
DOWSEC 013256 3218 32334 
DIBAD 003074 14794 2869 2871 2930 2937 2959 2960 
D1 002674 14784 3751 3778 3949 4044 
DICDAT 015646 3752 = 3766" 
DICERR 002664 1474# 2125% 2222 2391* 3796 3805 3811* 3815* 4062 
DICMER 00266 14734 3664" 3766" 3783* 3790 3827x 3866« 
DICNT 002652 1469# 22238 2282  3868* 3869 
DICRC 002672 1477# 3719% 3723 3792 3801 3812 
DIDISP 013202 2155" 2158* 2266*  2376* 2393% 3200 32014 3547* 3599% 3615* 3635" 3670" 3683 
3704* 3713* 3752s 
DIDUN 014762 3547 35778 
DIEBUF 015610 3738 «8=— 3750# 
DIERR 002654 1470 §=2124* 2221" = 2390* = 3629 3642 = 3652" = 3663" «= 3667" «= 3699 37018 «= 3727s 85737 
3826* 5 4062 
DIEXP 666 14754 3781* 4062 
DIFBUF 014776 2158 3588% 3660 3670 
DIINT 013176 3195 3200# 
DINEXT 016342 3713 «= 3725, Ss 3813 38 82H 
DINXT1 38264 3883 
DINXT2 016256 38654 3884 
DIPAT 002650 14684 2123* 2176 3856s 
DIRCHK 015406 3683 36974 
DIREC 002670 1476# 3782* 4062 
DIREST 014674 2376 48=— 3547 : 
DIRSEC 015352 2155 2393 36784 3703 37046 3816 3835 
DISEC 00 1472 =2126" = =—2261" = 2389» = 2957 3591 3613 3653) 3655" «= 3657 = 3655" 3662" 3680 
3770 =§- 33828 = 3830s «= 3832 3834e = 8B4B* «= 4.0862 


| 383 
DITMO 011564 2178 2804" 2815* 28214 


PDT-11 EXERCISER 


CVKDAB.P11 
DITRK 002656 
DIWCHK 015116 
DIWSEC 015062 
EBHLD 006250 
E 000003 
EBUFF 017004 
EMTVEC= 000030 
EM1 020456 
EM10 020771 
EM11 021016 
EM13 21034 
EM14 021065 
EM15 021116 
EM16 021147 
EM17 021200 
EM19 021216 
EM2 020475 
EM20 021247 
EM21 21 
EM22 021331 
EM23 021 
EM24 021373 
EM25 021410 
EM26 021425 
EM27 021442 
EM28 021457 
EM29 021476 
EM3 020517 
EM30 021516 
—M31 021527 
EM32 021540 
EM33 021603 
EM34 021644 
EM35 021703 
EM36 021750 
—M37 022017 
EM38 22043 
EM39 022111 
EM, 20563 
EM4O 022141 
EM41 22 
EM42 022240 
EM4 3 022261 
EM45 022313 
EM47 02234 
EM49 022376 
EMS 2 
EMS1 022427 
EMS2 022453 
EMS3 022477 
EMS4 02254 
EMSS 02256 
EM56 022620 
EMS7 022655 
EM58 022676 
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2192* 


1327 


| 
10:00 PAGE 113 


2199% 2256% 2388* 2955 3589 3611 3678 
20964 4062 

3753 4026 

40624 

40624 


1330 1533 1348 1354 40624 


3768 


3841 


SEQ 0112 
3845 


PDT=11 EXERCISER 


CVKDAB.P11 
EMSS 022717 
EM6 020634 
EM60 022755 
EM61 022776 
EM62 023017 
EM7 02 
EM8 026710 
EMS 020741 
ENDPAS . 017764 
ENVPAR= 001400 
EOP 010200 
EPAR = 0 
ERFLG 016666 
ERR = 
ER 025764 
ERRVEC= 
EXAMKB 011102 
EXPO 00625 
EXP1 006254 
FBUF = 000001 
FIN 003122 
FLGHLD 011376 
RERR = 020000 
GETSEC 016674 
S$ = Keekne 
GTDEVM= 104412 
GTSWR = 104406 
GTSDEV 011116 
HFDUP = 1 
HILIM 011074 
HINUM 011076 
HLD42 004464 
HT = 000011 
ID = 000001 
IE = 000100 
INI TAL= 11 
INTFLG 012150 
INTSRV 012142 
INVADR= 2 
INVCT 010176 
IOTVEC= 000020 
LDATA = 
011716 
LDIBAD 012030 
LF = 000012 
LINCT 012300 
LOLIM 011072 
LONUM 011100 
LOOP 003732 


MAC 
17-NOV-78 10: 


11 


~< 


senteeeel 


17=NOV-78 
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2465 
3919* 


24928 
3928* 


1662* 
2809 


2268* 
3505* 


4649 


2660 


4136 
2658 
1611 


3929 


1663* 
2845 


2 508* 
3573* 


4650 


26654 


4142 
26644 
16164 


3935* 


1737* 


2330* 


3577s 


4652 


2518 


5941* 


1738* 


2349* 
3844 


4654 


3942 


2527* 


2365* 
3867* 


4655 


39734 


2528* 


2377* 


4656 


25535* 


2570* 


2392s 


4657 


2571* 


2419* 


1896 
2531 
3090 


3531 
3616 


2555* 


SEG 0113 


2428* 


PDT=11 EXERCISER 


CVKDAB.P11 
LSTAD 026532 
LSTCHR 012772 
MAINT = 000002 
MAXMEM 010766 
MAXSEC 016662 
MAXSK 0035126 
MAXTRK 003124 
MCLK = 004 
MEM 017314 
MEMCT 004454 
MEMHLD 004456 
MEMORY 017743 
M 010750 
MEMTST 046 
MM = 010000 
MR = 00 
MSG1 020001 
MSG2 20030 
MSG3 0064 
MSG4 20121 
MYTYPE 025732 
M12K 7265 
M16K 017270 
017275 
M24K 7302 
M 173507 
M4K 017253 
M8k 17257 
NOTPRE 017534 
L 010336 
ODDPAR= 001 
OK 017701 
OPAR = 20 
ORERR = 
= 177420 
PARERR= 
PAT 460 
PATT 017712 
PERR 025772 
PIRQ = 177772 
PIRQVE= 240 
T 017215 
= 177516 
PRCHR 012276 
PRINT 7204 
PRPORT 010746 
PRPRES 010744 
PRS = 177514 
PRSRV 012152 
PRT 02 
PRTST 004560 
PRVEC = 000200 
PRO = 000000 
PR1 = 000040 
PR2 = 000100 
PRS = 000140 


:00 
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1869 


46594 
31434 


10:00 


1928* 
1714* 


2999 
26244 
2615 


3507 3869 

2196 2200* 2215* 
17464 

4062 

1930* 1962* 1964* 
1717 1723 1734* 
3001* 3004*  3006* 
2988 


SEQ 0114 


2229 2254 2509* 3484 3845 


1996* 1998*  2612* 
17524 4062 


5008* 30134 


Ll 9 
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CVKDAB.P11 17-NOV=78 10:00 CROSS REFERENCE TABLE =-=- USER SYMBOLS SEQ 0115 
PRG = 2 72984 15264 
PRS = 000240 7304 
PRE = 300 7314 
PR7 = 340 7324 
PS = 177776 7054 706 
PSERR 025774 1633* 2506 3271* 3356* 3442%  3645* 3730* #3808* 44704 
PSW = 177776 7064 
PWRVEC= 000024 7974 
RACT = 004000 9694 
010770 2230 2235 2255 2260 26414 2659 2661 
017725 3512 74 40624 
CHR = 104 4263 46554 
RDLIN = 104411 46564 
RDwWR 016744 3907 3923 3936 40064 
RDY = 000200 9544 10124 10464 
REGHLD 011660 2838* 2843 28564 
RESTOR= 000017 10424  %3262 3297 3331 3340 3544 3548 3636 3671 3705 3714 
RESVEC= 000010 7924 
RING = 040000 9334 9664 
= 000020 10484 3258 3272 3294 3328 3335 3357 3632 3646 3668 3702 3709 3731 
RSEC = 000007 10384 3311 3684 3908 3937 
RSTAT = 000013 10404 3556 
TS = 000004 9424 9784 1596 1597 1627 1837 1887 1920 1921 2613 2614 
017670 1776 1814 1908 1951 1985 2019 40624 
RXCS = 177170 8524 2038 20435* 2046 2053* 2060 2068* 2074 2141* 2160* 2244% 2269% 2309 
2315 2331* 2350* 2356 2367* 2378%* 2384 2394% 2420% 2429% 2435 2459% 2470 
179 3181 3187 3 194 3219* 3240* 3242 53 3262* 3297* 3311* 3323 
33351* 3340* 3385* 3496* 3514% 3535% 3544% 3548% 3556% 3564%  3574% 3578 * 
3616* 2 3636* 3671* 3684* 3697 3705* 3714% 3753* 3857* 3876* 3 3910 
3926 3939 4010* 4012 4026* 4031 4062 
RXDB = 177172 8534 2054* 2069 3220* 3386 3601* 3754 4027 
RXES = 177172 8544 2319 2465 3182 3191 3366 4062 
RXSA = 177174 Btw 2454* 2480* 2885 2933 3183 3192 3236* 33508*  3532%  3614% 3681* 4009* 
RXSRV 013074 2131 2150 31794 
RXVEC = 8214 2131* 2132% 2150* 2151 
S 017155 1872 2593 40624 
SECCNT 016664 3953* 3955 39724 3997 
016672 3903* 3958 3960*  3964* 39754 4008 
SEND = 000020 10154 1839 3139 
SETVEC 011272 1854 1889 1932 1966 2000 27304 
SIZE 010342 1605 25274 
SMPAR = 176622 84 1836* 
SMRB = 176622 8474 1848 3149 
SMRC = 176620 1837* 1843 1860* 3162s 
SMRSRV 012774 1856 31494 
SMRVE C= 340 8 1855 
SMTST 004724 1783 1785 1801 1808 1813 18204 
= 176626 8504 1840* 3128 
C = 176624 84 1830* 1831* 1835* 1839% 1841* 1869% 3127% 3135% 3139" 3166 
SMXSRV 012704 1857 31274 
= 000344 819 
SPRS 012302 2988* 2989 30154 4062 
= 002000 93 9704 
RSYN = 20 97 1837 
SRXCS 013204 3181* 3190* 32044 4062 


PDT=11 EXERCISER 
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SRXES 013206 
SRXSA 013210 
STACK = 001100 
START 0603174 
START? 003156 
START2 003144 
STARTS 003156 
STKLMT= 177774 
STSYN = 000400 
SWR 001140 
SWREG 000176 
SWwO = 000001 
SWwOO = 000001 
SwO1 = 000002 
SWO2 = 000004 
SWOS = 000010 
SWO4 = 000020 
SWOS = 000040 
SWwO6 = 000100 
SWO7 = 000200 
SwO8 = 000400 
SwO9 = 001000 
Swi = 000002 
SwW10 = 002000 
SW11 = 004000 
SWi2 = 010000 
Sw13 = 020000 
SW14 = 040000 
Sw15 = 100000 
SWw2 = 

SW3 = 000010 
SW4 == 000020 
SWS = 000040 
SW6 = 000100 
SW7 == 000200 
SW8 = 000400 
SW9 = 001000 
SXMIT = 000010 
SYNC1 = 040000 
SYNC2 = 

$1 003214 
S2 003220 
$3 003224 
TBITVE= 000014 
TERR 025766 
TIMDO 3 011402 
TIMD1 011476 
TIMER 011316 
TIMER] 011566 
TIMER2 011600 
TKVEC = 000060 
TKIB = 176502 
TKIS = 176500 
TKISRV 012322 


gso 
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— ot ed LWIA 
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3258 3272 3294 3328 3335 3343 
3731 4062 

4062 4456 

4662 

1548 1554* 1561* 1573 1740 1773 
3490 3509 3837 3851 3871 4152 
4152 4165 

a 

44674 

23353 2352 2369 2422 2431 2461 
2396 0044 

1899 1942 1976 2010 27494 

2059 2075 28584 4011 4050 


3357 


s— 
— 00 
OO 
N™N 


* 


27764 


3632 


1870 
4371 


3646 


1905 
4378 


SEQ 0116 


3668 


1948 
4390 
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CVKDAB.P11  17=NOV-78 10:00 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0117 
TKIVEC= 000300 6234 1933 
K2B = 176512 8634 1972 3052 
TKS = 176510 8624 1973* 
TKOSRV 012422 1968 30524 
TKOVEC= 00031 8254 
= 176522 8684 2006 3078 
= 176520 8674 2007* 2558 
TK 012522 2002 30784 
TK3VEC= 000320 8274 2001 
TPIB = 176506 8604 3022 
TPIS = 176504 859% 1940* 3021*  3037* 
TPISRV 012304 1935 30214 
TPIVEC= 000304 8244 
TP2B = 176516 8654 3049s 
TP2S = 176514 8644 1974 3048*  3064* 
TP2SRV 012404 1969 30484 
TP2VEC= 000314 8264 
TP3B = 176526 8704  3075* 
TP3S = 176524 8694  2008* 3074% 3090 
TP3SRV 012504 2003 30744 
TP3VEC= 000324 8284 
TRACK 016670 3902* 3963 3974# 4006 
2 799# 1540" 1541% 
TRK 017705 3479 3840 40624 
TRTVEC= 000014 794M 
025770 1594* 2500  3270% 3355% 3441* 3644" 3729% 3807 44684 
TYPDS = 104405 2495 2498 2501 2504 2507 3481 3842 4440 4650 
TYPE = 104401 1567 1612S -1742,)—S'ss«‘1743'=S'«s«1775)=S'«s«<1776~=)Ss«1809'-Ss«1812,—S's«d1814+2~=S*«2872~—S—«*d873 7 1908 
1950 1951 1984 1985 2018 2019 2493 24 24 2502 2505 2508 2514 
2548 2556 2567 2568 2585 2587 2608 2609 2680 3683 56 2718 + = 3478 
79 823492 3493 349% = 3511 3512) 3513S 3839 «= 3840S 3843 533854 
3855 3873 3874S 387538 7 4106 4163 4164 4167 4178 4199 


TYPOC = 104402 2682 4166 4412 4436 46474 
TYPON = 104404 46494 
TYPOS = 104403 
TICHR 12400 1937* 1943 3022 3026 3030 3032* 3035* 30404 4062 
TIHLD 012402 1938* 3025* 3026 30414 4062 
T2CHR 1971* 1977 3049 3057 3059* 3062* 30674 4062 
T2ZHLD 012502 1972« 3052* 3053 30684 4062 
T5CHR 2005* 20117 3075 3079 3085 3085* 3088* 30934 4062 
TSHLD 012602 2006* 3078* 3079 30944 4062 
ULITE = 884 
USEL = 10314 3194 
017351 1612 40624 
WDDSE C= 15 10414 3240 
EC = 10374 3242 3564 3616 3324 
THD 1000 1093 10994 
SASTAT= seean8 4 
SATYC 025174 4301 43034 
SATY1 025150 42 
SATYS 025156 4091 43004 
SATY 025166 43024 


4 4386 
SAUTOB 001134 11504 1577* 4160 4295 
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VSNSEKARRG 
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41394 


43474 


4407 
4396 


eal a 


4288 
3010s 
; 


4396 


4455 


4086 


4381 4396 4404 4425 4428 
te se 225" tore 3136* 
1833 1879 1882 1918 1923 
47 2166 2174 2225 2250 

2605 2681 2697* 

2671 4086 4308 4332 4383 
4410 

4383 


4448 


3140* 
1926 
2275 


SEQ 0118 


3163* 
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2280 
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PDT=11 EXERCISER MACY11 30G(1065) 17=NOV-78 10:00 PAGE 120 


CVKDAB.P11 17-NOV-78 10:00 CROSS REFERENCE TASLE == USER SYMBOLS SEQ 0119 
SMAMS2 001224 11814 
SMAMSS 001230 11844 
0012 11874 
00100 11014 
SMFLG 025412 4300* 4306 4341* 43454 
SMNEW 0251 2683 4167 42934 
SMSGAD 001204 11594 4316* 319 
SMSGLG 11604 4521* 
SMSGTY 001170 11534 4314 4322* 4334 4338* 
SMSWR 025125 4164 42914 
SMTYP1 11744 
SMTYP2 001225 11824 
SMTYPS 001231 11854 
SMTYP4 001235 11884 
L 001154 11394 4113 4142 
SOCNT 026444 4570* 4599* 46124 
026446 4565* 4569* 4574 4577s 4588* 46144 
SPASS 001176 11564 1558* 1826 2186 2492% 2494 
SPASTM 001 11034 
001164 11444 2718 4142 4218 4272 4288 4396 
SRDCHR 024630 42314 4655 
= kkeene 4657 
SRDLIN 024750 4259# 4656 
= kekeee 657 
SRDSZ = 000010 42524 
SR2A = keeane 4657 
SSAVRE= *eeeee 4657 
SSETUP= 000106 14984 1537 1538 1540 1542 1567 1568 4147 4295 4367 4393 4395 
SSTUP = 177777 14984 
SSWR = 132000 — 680 1143 1542 4359 4360 4361 4362 4363 4371 4378 4390 4394 
SSWREG 1212 11644 #15617 
STESTN 001174 1155# 6656* 
$T 1146 11364 2690 4145 4156 4773 4235 4241 
$STKS 001144 11354 1520* 2688 4145 4154 4170 4182* 4202* 4233 4239 
SIN = 1 6694 680 
$TPB 001152 11384 4131* 4142 
STPFLG 001157 11424 4080 4142 
STPS 001150 11374 4129 4142 
STRAP 026450 1540 46234 
STRAP2 026472 46344 4645 
$T = 46384 46474 46484 46494 46504 46514 4652 46534 4654 46554 46564 46574 46584 
STRPAD 026504 4628 46454 
STSTM 001 11024 
STSTNM 001102 11154 4370 4396 
STTYIN 025076 4260 4261 4283 42874 
y ekeene 4651 
STYPDS 025776 44834 4650 
STYPE 024024 40804 4327 4638 4646 
STYPEC 024236 2702 4110 4117 4124 41294 413%0 4204 
STYPEX 024 4135 4137 41404 
STYPOC 026246 45684 4647 
STYPON 026262 4567 4570# 4649 
STYPOS 026222 45634 4648 
IT QO012 11584 
SUNITM 001010 11044 


es 


PDT=11 EXERCISER MACY11 30G(1065) 17=NOV-78 10:00 PAGE 121 
CVKDAB.P11 17-NOV-78 10:00 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0120 
SUSWR = 001214 11654 
SVECT1 001240 11904 
SVECT2 001242 11914 
SOFILL 026445 4564* 4568* 4578 46134 
SGOCAT= xeeeee 4380 
. = 026532 10604 10644 1068 10714 10744 +1076 +%10784 #10834 1089 10904 10924 10944 11124 
1147 14604 14614 14784 14798 1535 2436 2483 25214 2762 2788 2816 2829 
2851 3905 3917 3933 3946 4049 40624 4142 4145 42874 4288 42954 43484 


4396 44514 45374 
-SASTA= weenee | 4300 4303 
-$X = 007000 10894 1094 


E 10 
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CVKDAB.P11 17=NOV-78 10:00 CROSS REFERENCE TABLE -= MACRO NAMES SEQ 0121 
ENDCOM Soe 
ERROR 69784 1674 1688 1693 1721 1726 1770 1800 1845 1851 1866 1902 1945 1979 2013 
2040 2048 062 2076 2083 2088 2144 2163 2247 $o°$ 2312 2317 2321 2334 2353 
358 2370 238) 23 2397 2423 2432 2437 2462 246 2472 2891 2939 2991 3028 
055 3081 108 3154 3184 3260 3265 3274 3276 3337 3346 3350 3359 3361 8 
2 28 3431 3436 3443 3634 3639 3648 3650 3711 3720 3724 3733 3735 3794 
3 03 3809 3915 3931 3944 4014 4033 4047 
ESCAPE 8034 
GETPRI 8034 
GE TSWR 8034 15684 
8034 
NEWTST 8034 
8034 4342 4343 4524 
SH 803" 4303 4305 4326 4483 
REPORT 8034 
SCOPE 6984 
SETPRI 8034 
SETTRA 46384 4647 4648 4649 4650 4652 4654 4655 4656 4657 
SETUP 8034 1529 
SKIP 8034 
SLASH 8034 
SPACE 8034 
STARS 8034 807 809 830 832 872 874 6 928 9 961 1021 1023 1056 1058 
1086 1 1095 1108 1147 1150 1446 1448 1464 1466 1651 1658 1756 1758 1778 
1780 1816 1818 1875 1877 1910 1912 1953 1955 1987 1989 2021 2028 111 
22 2212 22 2297 2337 2342 2402 2408 2439 2445 2488 24 2637 2639 2676 
2678 2721 2728 2743 747 2770 2774 2798 2802 823 2825 2832 28 2862 
2876 2878 28 2902 2924 2926 2947 2950 2974 2977 29 29 3017 3019 
3070 3072 3097 3099 3123 125 3170 3177 3209 3212 3229 3231 3245 3251 
3301 3303 3315 3321 3377 3380 3392 3397 3458 3463 3501 528 3530 3539 
3541 3551 3553 3559 3561 35 3571 3583 3586 3607 3609 3619 3625 74 6 
9 3695 3745 3748 59 3764 3819 3824 3861 3863 3887 3893 3977 3979 4 
004 4019 4022 4038 4040 4058 4040 4065 4144 4147 4223 4252 4298 4355 4398 
4473 4540 4617 
SWRSU B03 15424 


TYPDEC 8034 2694 2497 2500 2505 2506 3480 3841 44 38 


E 11064 
SSCMIM 11064 
SSESCA 8034 
SSNEWT 8034 


SSSET 46584 4647 4648 4649 4650 4652 4u54 4655 4656 4657 


SSSKIP 8034 

-EQUAT oF 495 
. 6694 670 
. SE TUP 9 861498 


PDT=11 EXERCISER 


MACY11 30G6(1063) 


CVKDAB.P11 17=NOV-78 10:00 
. SAPTB 6694 11484 

SAPTH 6694 1084 

- SAPTY 6694 4296 

- SCATC 6694 

SCMTA 6694 1106 

- SEOP 6694 

SERRO 6694 4353 

- SERRT 6694 4396 

. SREAD 6694 4142 

- $SCOP 6694 

. STRAP 6694 4615 

-STYPD 6694 4471 

STYPE 6694 4063 

$TYPO 6694 4538 

- ABS. 026532 000 COM 
ERRORS DETECTED: 0O 


7: CVKDAB/I 
RUN-TIME : 


22 


RUN-TIME RATIO: 129/37=3.4 


CORE USED: 


24K 


(47 PAGES) 


17-NOV-78 


7: CVKDAB. SEG/CRF /SOL =C VKDAB. P11 
13 1 SECONDS 
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